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ABSTRACT 


This  is  the  third  of  three  volumes.  Volumes  I  and  II  contain  other 
aspects  of  the  study:  descriptions  of  the  RRA-42  and  RRA-45  codes  and 
their  applications  to  the  calculation  of  aerosol  attenuation  coefficients 
and  the  applications  of  the  LITE  codes  to  analysis  of  experimental  data. 

The  Monte  Carlo  procedures  designated  as  LITE-I  and  LITE-II  were 
developed  during  a  previous  contract  period  for  use  in  studying  the  trans¬ 
port  of  light  through  the  earth's  atmosphere  under  various  environmental 
conditions.  These  procedures  have  been  modified  to  expand  their  applica¬ 
tion  to  a  broader  range  of  physical  problems.  LITE-I  treats  monochroma¬ 
tic  light  emitted  from  a  point  source,  and  LITE-II  treats  monochromatic 
plane  sources  of  light.  The  codes  have  been  written  in  both  ALGOL  for  the 
Burroughs  B-5500  and  FORTRAN-IV  for  other  computers.  The  codes  are  suffi¬ 
ciently  flexible  to  treat  multiple  scattering  in  an  atmosphere  in  which 
the  air  densit  and  the  aerosol  size  distribution  vary  independently  and 
arbitrarily  with  altitude.  Provision  for  treating  ground  and  cloud  re¬ 
flection  with  an  albedo  method  is  also  available  in  the  codes. 

A  machine  procedure,  designated  as  ACC,  was  developed  for  use  in  con¬ 
verting  the  scattered  intensities  computed  by  the  LITE  codes  for  a  given 
ground  albedo  to  scattered  intensities  for  problems  where  only  the  magni¬ 
tude  of  the  ground  albedo  has  changed. 

Utilization  instructions,  input  data  formats,  sample  problems  and 
the  ALGOL  listings  of  ACC  and  the  improved  versions  of  the  LITE  programs 
are  given  to  aid  those  who  wish  to  utilize  the  codes. 
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PREFACE 

During  the  period  1  August  1965  to  31  August  1966  Monte  Carlo  studies 
were  performed  to  determine  light  transport  in  the  atmosphere  under  various 
environmental  conditions.  These  studies  consisted  of  1)  correlation  analy¬ 
sis  of  light  transport  from  a  point  isotropic  source  and  a  plane  parallel 
source  to  determine  the  comparability  of  solar  light  transmission  data  and 
transmission  properties  for  thermal  radiation  from  nuclear  weapons,  2)  devel¬ 
opment  of  machine  codes  for  calculation  of  phase  functions  and  scattering 
and  absorption  coefficients  for  spherical-homogeneous  aerosol  particles 
with  a  complex  index  of  refraction,  3)  an  analysis  of  experimental  field 
data  on  light  transmission,  4)  parametric  studies  to  determine  the  speci¬ 
fic  influence  of  ground  and  cloud  albedo,  cloud  height  and  aerosol  number 
density  and  particle-size  distribution  on  the  transport  of  light  in  the 
atmosphere,  5)  modifications  to  the  LITE  codes  to  increase  their  applica¬ 
tion  to  a  wider  range  of  atmospheric  transport  problems  and  6)  the  devel¬ 
opment  of  a  machine  program  for  use  in  converting  the  scattered  intensi¬ 
ties  computed  by  the  LITE  codes  for  a  given  ground  albedo  to  data  giving 
scattered  intensities  and  scattered  fluxes  for  other  ground  albedos.  The 
results  of  these  studies  are  presented  in  this  report,  which  is  divided 
into  three  volumes.  The  first  volume  describes  the  results  of  items  1,  3, 
and  4  outlined  above.  The  second  volume  describes  the  machine  programs 
developed  for  use  in  calculation  of  aerosol  cross  sections.  The  third 
volume  contains  utilization  instructions  for  the  modified  versions  of  the 
LITE  codes  and  for  the  code  developed  .o  convert  the  LITE  results  to  data 
giving  scattered  intensities  and  fluxes  for  other  ground  albedos. 
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I.  INTRODUCTION 

The  two  Monte  Carlo  programs,  LITE-I  and  LITE-II,  which  were  developed 
during  a  previous  contract  period  (Ref.  1)  for  use  in  studying  the  effects 
of  atmospheric  and  terrain  conditions  on  the  transmission  of  visible  light 
in  the  earth's  atmosphere  have  been  converted  to  FORTRAN-IV,  The  FORTRAN- IV 
version..  have  also  been  translated  to  the  ALGOL  language  for  execution  on 
the  Burrough's  B-5500  computer.  The  two  programs,  LITE-I  for  point  sources 
of  light  and  LITE-11  for  plane  sources,  have  been  utilized  in  studies  of 
light  transmission  over  the  past  year  (Ref. 2).  During  this  period  several 
minor  modifications  were  made  in  the  programs  to  expand  the  application  of 
the  programs  to  cover  a  broader  range  of  physical  problems. 

An  auxiliary  program  was  written  to  convert  the  scattered  intensities 
computed  by  the  LITE  programs  for  a  given  atmospheric  condition  and  ground 
albedo  to  data  for  problems  in  which  all  the  input  parameters  are  unchanged 
except  the  albedo  for  the  first  reflection  surface.  This  program  designated 
ACC,  Albedo  Conversion  Code,  will  also  calculate  the  light  current  through 
a  plane  normal  to  either  one  of  the  three  coordinate  axes  used  in  defining  the 
scattered  angular  intensities  computed  by  the  LITE  codes. 

The  modifications  made  to  the  LITE  codes  during  the  contract  period 
are  discussed  in  Section  II.  The  ACC  is  discussed  in  Section  III.  Sections 
IV  and  V  contain  the  utilization  instructions  and  sample  problems  for  *  ie 
LITE  programs  and  Sections  VI  and  VII  give  the  utilization  instructions 
and  a  sample  problem  for  the  ACC.  The  ALGOL  listings  of  LITE-I  and  LITE-11 
and  ACC  are  given  in  Section  VIII. 
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II,  LITE  CODES 

A  discussion  of  the  modifications  made  to  the  LITE  programs  is  pre¬ 
ceded  by  a  brief  description  of  the  methods  utilized  in  the  program.  For 
a  more  detailed  description  of  methods  the  reader  is  referred  to  Ref.  1. 

2, 1  Method  Description 

The  LITE-I  and  LITE-II  Monte  Carlo  programs  were  designed  so  that 
atmospheres  could  be  described  in  which  the  air  density  and  aerosol  con¬ 
tent  both  vary  independently  and  arbitrarily  with  altitude.  The  first  of 
these  programs  was  developed  to  study  the  transport  of  monochromatic  light 
emitted  isotropically  or  with  an  arbitrary  polar  angle  distribution  by  a 
point  source  located  in  an  air-ground  geometry  This  program  has  been  des¬ 
ignated  as  the  LITE-I  code-.  The  second  program,  LITE-II,  was  developed  to 
study  the  transport  of  monochromatic  light  emitted  from  a  plane  source  with 
an  arbitrary  polar  angle  distribution  located  at  the  top  of  the  atmosphere 
or  within  the  atmosphere. 

Routines  are  available  in  the  programs  for  treating  both  Rayleigh  and 
aerosol  scattering  events.  An  intermixture  of  the  two  events  is  possible 
or  the  atmosphere  may  be  considered  to  be  either  a  Rayleigh  or  an  aerosol 
atmosphere.  The  atmosphere  may  be  subdivided  into  plane  slab  regions  and 
a  different  aerosol  phase  function  input  for  each  region-  Thus,  the  scat¬ 
tering  properties  of  cloudy  and  non-cloudy  atmospheres  may  be  defined  with 
a  high  degree  of  accuracy. 

Albedo  techniques  are  incorporated  in  both  programs  to  treat  both 
ground  and  cloud  reflection;  however,  either  the  ground  or  cloud  regions 
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may  be  treated  as  regions  in  which  both  scattering  and  absorption  can  occur, 
if  desired. 

2,2  Modifications 

Four  significant  modifications  have  been  incorporated  into  the  LITE 
programs  during  the  past  year.  The  first  of  these  was  made  only  in  LITE-I. 
Originally  LITE-I  was  designated  to  treat  only  light  radiation  emitted  uni¬ 
formly  in  all  azimuthal  directions  by  a  point  source  with  an  arbitrary  input 
polar  angle  distribution.  This  restriction  on  the  source  description  ruled 
out  any  use  of  the  code  in  studying  atmospheric  scattering  of  light  from 
line  beam  sources  such  as  lasers  unless  the  beam  was  directed  vertically. 

The  restriction  on  the  source  description  was  removed  by  providing  for  the 
input  of  an  arbitrary  source  azimuthal  angle  distribution  from  which  to 
select  the  azimuthal  directions  of  the  source  photons.  By  defining  the 
source  angle  distributions  to  have  values  only  for  polar  angles  6  (see  Fig.  1) 
in  the  interval  between  ^  and  <J>2 »  then  the  source  will  emit  radiation  only 
in  the  solid  angle  defined  by 

SA  «  (<|>2  -  <J>1>  (cos6^  -  cos02)  . 

The  statistical  fluctuation  of  the  LITE-I  results  for  problems  having  uni¬ 
form  azimuthal  emission  of  light  from  a  point  source  indicated  the  need 
for  biasing  the  sample  from  tha  azimuthal  angle  distribution.  A  biasing 
scheme  was  developed  which  favors  those  azimuthal  angles  near  zero  degrees 
and  the  scheme  was  incorporated  into  LITE-I.  The  biasing  scheme  allows 
one  to  sample  azimuthal  angles  from  the  density  function 

A  e~A*  d*  (1) 

,  -A<f>max 

1  -e 
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where  $  is  equal  to  tt  or  the  largest  angle  used  to  describe  the  true 
max  *  wo 

azimuthal  angle  density  function  if  that  angle  is  less  than  tt,  and  A  is  an 
input  parameter. 

The  most  effective  use  of  the  biasing  scheme  is  accomplished  when  the 
azimuthal  angles  of  all  receiver  positions  are  z<»ro.  The  value  input  for 
the  variable  A  determines  the  extent  to  which  biasing  is  applied.  If  a 
negative  or  zero  value  is  input  for  A,  no  biasing  is  applied  and  the  source 
azimuthal  angles  are  chosen  directly  from  the  cumulative  probability  table  input 
to  define  the  true  azimuthal  angle  distribution. 

If  the  largest  angle  used  in  describing  the  true  azimuthal  angle  den¬ 
sity  function  is  greater  than  it,  the  code  used  the  density  function  (1)  with 

4>  *  tt.  Then  a  random  number  is  tested  against  0.5  and  if  it  is  less  than 

max  ° 

0,5,  the  azimuthal  angle  selected,  $■$',  is  unchanged.  However,  if  the  ran¬ 
dom  number  is  greater  than  0.5,  the  azimuthal  angle  is  taken  to  be 
<p  «*  2tt  -  <p' 

where  <f> *  is  the  angle  chosen  from  the  density  function  given  in  equation  (1). 

To  correct  for c the  bias  introduced  in  the  particle  weight  when  azimuthal 
angles  are  sampled  from  equation  (1),  the  particle  weight  is  multiplied  by 
the  factor 

((l-e~AW)/Ae"A*)p<$) 

where  p(<f>)  is  the  true  probability  density  function  evaluated  at  $,  the 
azimuthal  chosen. 

A  word  of  caution  should  be  given  to  chose  utilizing  the  LITE- I  code. 

When  A»0,  the  values  input  for  FAZA(l)  should  describe  the  unbiased  cumulative 
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azimuthal  angular  distribution,  but  when  A>0,  the  values  input  for  PAZA(I) 
should  describe  the  unbiased  non-accumulative  azimuthal  density  function. 


To  aid  the  user  in  the  selection  of  a  value  for  the  biasing  parameter 
A,  example*  of  cumulative  distributions  for  various  values  of  A  are  given 


in  Figure  2.  The  probability 


A<J> 


0  1-e 


that  the  source  particle's  azimuthal  direction  will  be  between  0  and  <p ' ,  is 
plotted  versus  4> '  for  several  values  of  A.  Note  that  for  values  of  A  near 
0,  the  biased  distribution  is  almost  isotropic;  but  as  A  is  Increased,  the 
biased  distribution  becomes  more  peaked  in  the  forward  direction.  For 
A  *  0.5,  half  of  the  particles  are  emitted  with  azimuthal  angles  between  0 
and  58°  and  68. 5%  of  the  particles  have  azimuthal  angles  less  than  90°. 

When  A  is  increased  to  1.0,  half  of  the  particles  are  emitted  within  the 
first  37°  and  82.5%  have  azimuthal  angles  less  than  90°. 

A  second  modification  was  made  to  both  LITE-I  and  LITE-11  to  provide 
for  an  albedo  which  is  dependent  upon  the  angle  of  incidence.  Several 
problems  run  with  the  LITE-II  code  for  different  angles  of  incidence  upon 
a  thick  cloud  indicated  that  the  reflected  distribution  resembled  a  cosine 
distribution  for  all  angles  of  incidence,  but  the  total  flux  reflected 
was  dependent  upon  the  angle  of  incidence.  It  was  also  determined  that 
the  total  number  of  particles  reflected  per  particle  incident  at  angle  6 
could  be  fitted  with  the  expression 

ALBEDO  =■  Cx  +  C2  cos  6  (2) 

where  and  are  constants  and  0  is  the  angle  of  incidence  measured  from 
the  normal  to  the  reflection  surface.  The  expression  (2)  was  incorporated 
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in  the  LITE  codes  to  allow  the  albedo  to  vary  with  incident  angle.  Previously 
the  albedo  had  been  defined  with  a  single  constant,  ALBEDO  ■  C^. 

The  third  modification  made  to  the  LITE  codes  was  the  addition  of  in¬ 
structions  to  print  the  azimuthal  angle  dependence  of  the  scattered  inten¬ 
sity  as  well  as  the  polar  angle  dependence,.  For  the  LITE-II  code  the  azi¬ 
muthal  angle  dependence  of  the  scattered  intensity  is  defined  in  terms  of 
a  coordinate  system  (see  Fig-  3)  that  has  the  polar  axis  pointing  vertically 
and  the  X  and  Y  axes  in  the  horizontal  plane,  The  positive  X  axis  is  de¬ 
fined  as  the  zero  azimuthal  angle  direction. 

The  polar  angle  distribution  of  the  scattered  intensity  as  computed 
by  use  of  LITE-I  is  given  in  terms  of  a  coordinate  system  that  has  the  polar 
axis  coincident  with  the  source-receiver  axis  (see  Fig,  4).  Thus  the  X 
and  Y  axes  lie  in  a  plane  normal  to  the  source- receiver  axis.  The  X  axis 
which  defines  the  zero  azimuthal  angle  at  the  receiver  is  contained  in  the 
vertical  plane  containing  the  source  and  receiver  points.  For  a  source 
point  located  at  a  height  HS  on  the  vertical  axis  and  a  receiver  located 
at  the  position  RD,  HD,  4>D ,  the  sine  and  cosine  of  the  angle  between  the 
source-receiver  axis  and  the  vertical  axis  are  given  by  the  equations 


SID 


RD 

SOD 


COD  - 


HS-HD 

SOD 


where  SOD  is  the  distance  between  the  source  and  receiver.  For  a  collision 
at  the  location  R2,  H2,  $2,  the  cosine  of  the  polar  angle  between  the  source- 
receiver  axis  and  the  line  joining  the  collision  and  receiver  points  is 
given  by  the  expression 
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Fig.  3.  Difinition  of  Print  Angles  for  LITE-1 1 
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"  (CARK) 
RECEIVER 


Fig.  4.  Geometry  for  Calculation  of  the  Receiver  Polar  and  Azimuthal  Angles  in  LITE-1 
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CPA  -  (CARK*SII>)+(COD*COTH) 

where  COTH  Is  Che  cosine  of  Che  angle  between  Che  verClcal  and  Che  line 
joining  Che  collision  and  receiver  polnCs  and 
CARK  -  (RD-(R2*CPHID))/T. 

T  is  Che  dlsCance  becween  Che  collision  and  receiver  poincs  and  CPH1D  is 
Che  cosine  of  Che  difference  becween  Che  angles  giving  Che  a2imuChal  posi- 
clons  of  Che  collision  and  receiver  poinCs.  The  projeccion  of  Che  line 
joining  Che  collision  and  receiver  poinCs  inCo  a  plane  normal  to  Che  source- 
receiver  axis  makes  an  angle  8  wlCh  Che  X  axis.  Cosine  8  is  given  by  Che 
equaCion 

cos8  ■  (CARK-(CPA*SID))/(SPA*COD), 

where  SPA  is  the  sine  of  Che  polar  angle  beCween  Che  source-receiver  axis  ar.d 
Che  line  joining  Che  collision  and  receiver  poinCs.  The  angle  8  is  Che 
azimuchal  angle  used  in  Che  prinC  formaC  for  LITE-I.  When  Che  alCiCude 
of  Che  collision  point,  H2,  is  less  Chan  HS  and  Che  collision  poinC  lies 
on  Che  plane  containing  Che  source-receiver  axis  and  Che  vercical  axis, 

Chen  8=0°. 

A  fourch  modificaCion  made  Co  the  LITE  codes  provides  for  punching 
on  cards  Che  scattered  Intensities  as  a  function  of  Che  polar  and  azimuthal 
angles  and  Che  number  of  times  Che  particle  has  been  reflected  as  well  as 
printing  them  out.  The  punched  output  from  the  LITE  codes  may  be  used  as 
a  portion  of  the  input  to  the  Albedo  Conversion  Code  which  converts  the 
output  to  apply  to  different  albedos  for  the  first  reflection  surface  de¬ 
scribed  ir.  the  LITE  code  input. 


0 
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The  modifications  made,  in  the  LITE  programs  require  that  additional 
data  be  supplied  as  input  to  the  two  programs.  The  utilization  instruc¬ 
tions  for  the  LITE  codes  have  been  revised  to  incorporate  the  additional 
input  data  and  the  revised  utilization  instructions  are  given  in  Section 
IV  of  this  report. 

The  input  and  output  of  a  sample  problem  for  each  program  is  given 
in  Section  V  and  the  ALGOL  listings  of  the  improved  versions  of  the  LITE 
programs  are  given  in  Section  VIII. 
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III.  ALBEDO  CONVERSION  CODE 

The  LITE  programs  print  out  the  scattered  light  intensity  at  a  receiver 
as  a  function  of  the  order  of  reflection  from  the  first  reflection  surface 
given  in  the  problem  input.  This  data  may  be  used  to  predict  the  scattered 
light  intensity  for  problems  in  which  all  input  parameters  are  unchanged 
except  the  magnitude  of  the  albedo  for  the  first  reflection  surface.  An 
auxiliary  program  denoted  as  ACC,  Albedo  Conversion  Code,  has  been  written 
to  convert  the  scattered  intensities  on  the  punched  output  from  the  LITE 
programs  to  data  for  different  magnitudes  of  the  albedo  input  for  the  first 
reflection  surface.  ACC  may  also  be  used  to  convert  the  LITE  calculated 
scattered  intensities  to  scattered  currents  across  one  of  the  three  planes 
normal  to  the  axes  of  the  coordinate  system  used  to  reference  the  LITE  prob¬ 
lem  print  polar  and  azimuthal  angles. 

3.1  Methods  Description 

The  punched  card  output  of  the  LITE  codes  provides  information  on  the 
amount  of  the  scattered  intensity  F(N,0(I)  ,<K,J)  ,a)  that  arrives  at  a  given 
receiver  with  directions  within  the  Ith  polar  angle  interval  and  Jth  azi¬ 
muthal  angle  interval  that  results  from  the  phccons  that  have  undergone 
exactly  N  reflections  from  a  reflection  surface  having  an  albedo  a.  This 
data  can  be  converted  to  give  data  for  a  reflection  surface  having  an  al¬ 
bedo  a'  by  use  of  the  equation 

Nmax  N 

A(0(I)  ,<|>(J)  »<*')  -  I  F(N,6(I),<KJ),c)  (a'/a)"  (3) 

N-0 

where  A(0(I)  ,4>(J)  ,a' )  is  the  scattered  intensity  for  albedo  a'  that  is 
contained  in  the  Ith  polar  angle  Interval  and  the  Jth  azimuthal  angle  interval. 
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NMAX  is  the  maximum  number  of  reflections  for  which  the  scattered  inten¬ 
sities  were  originally  computed.  The  lower  bounds,  CTHETA(2)  through 
CTHETA  (I  )  of  the  polar  angle  intervals  are  given  in  the  LITE  code 
punched  output.  CTHETA(l)  is  not  shown  in  the  LITE  punched  output,  but 
is  taken  in  ACC  to  be  1.0.  The  azimuthal  interval,  STER,  is  an  input 
parameter  for  the  ACC  code, 


In  order  to  calculate  the  photon  current  (flux)  through  a  plane  normal 

to  the  polar  axis,  the  equation  for  CNP(0  (I) ,  <f>(J)  » a ' )  is 

NMAX 

CNP(e(I),<KJ),a')  -  l  (a*/a)N(M)  F(N,0 (I),$ (J) ,a) 

N-0 


where  M  is  given  by 


M  -  |  (cost'vl)  4  cos*d+l))/2j  . 

When  calculating  the  photon  current  through  a  plane  containing  the 
polar  axis  and  a  normal  to  the  zero  azimuthal  axis,  the  equation  for 
CNA(0  (I) , d> ( J )  ,a' )  is: 

NMAX 

CNA(0 (I)  ,$ ( J)  ,ot’ )  -  l  (a '/a)  COSGA  F(N,0 (I)  ,  )(J)  ,a) 

N-0 


where  COSGA  *  cos$sin0,  $  is  the  average  azimuthal  angle  in  the  Jth  azi¬ 
muthal  angle  interval  and  0  is  the  average  polar  angle  in  the  Ith  polar 
angle  interval. 


In  order  to  calculate  the  photon  current  through  a  plane  containing 
both  the  polar  and  zero  azimuthal  axes,  the  equation  for  CPPA  (0  (I)  ,<f(J)  ,a' ) 
is : 

NMAX 

CPPA(0  (I)  ,4>(J)  ,a' )  -  l  (a'/a)  COSGA  F(N, 0(1), $(J), a) 

N-0 

where  COSGA  -  sin$sin0,  and  $  and  0  are  defined  as  above. 
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The  Albedo  Conversion  Code  sums  the  scattered  Intensities  and/or  current 
for  the  new  albedo  over  the  polar  angle  groups  to  give  the  total  scattered 
intensity  or  current,  ASUM(<}> (J)  ,a' )  In  the  Jth  azimuthal  interval  for  the 
new  albedo.  In  addition,  the  scattered  intensities  or  current  for  each 
solid  angle  interval  is  divided  by  the  number  of  steradians  within  the  cor¬ 
responding  solid  angle  interval  to  put  the  printed  scattered  intensity  or 
current  for  the  new  albedo  on  a  per  steradian  basis.  Thus,  the  printed 
intensity  or  current  B(6 (I)  ,<KJ)  ,<*' )  given  by  the  equation 


B(6(I) ,$(J) ,a') 


A(e  (I)  ,4CJ)  ) _ 

STER ( CTHETA ( I ) -CTHETA ( 1+1 ) ) 


is  the  scattered  intensity  or  current  per  steradian  at  the  midpoint  of  the 
Ith  polar  angle  interval  bounded  by  CTHETA(X) > cos 9 > CTHETA (1+1)  and  at  the 
midpoint  of  the  Jth  azimuthal  interval.  STER  is  the  absolute  value  of  the 
difference  between  the  upper  and  lower  bounds  of  the  Jth  azimuthal  angle 
interval.  These  values,  B(0(I) ,$(J) ,<*' ) ,  are  printed  as  a  function  of  the 
lower  bound  of  the  polar  angle  interval,  CTHETA(I),  and  the  albedo  a '  for 
each  azimuthal  angle  interval. 
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IV.  LITE  CODE  UTILIZATION  INSTRUCTIONS 

The  LITE  codes  are  available  in  both  ALGOL  for  the  B-5500  and  FORTRAN-TV 
for  other  computers.  This  section  of  the  report  includes  the  input  data 
formats  for  the  ALGOL  versions  of  the  codes.  The  input  data  formats  for 
the  FORTRAN  versions  are  different  from  those  in  the  ALGOL  versions,  only 
in  that  the  E  format  in  FORTRA  i  for  floating  point  numbers  has  an  E  pre¬ 
ceding  the  exponent,  whereas  • he  R  format  in  ALGOL  has  an  @  preceeding  tha 
exponent.  That  is,  the  number  217.8  would  be  written  in  R  format  as 
2.178(5+02  for  the  ALGOL  versions  of  the  code,  and  in  E  format  as  2.178E+02 
for  the  FORTRAN  versions.  The  oraer  of  the  input  data  and  field  width 
specifications  is  the  same  for  both  the  FORTRAN  and  ALGOL  versions „ 

4. 1  Operator  Instructions 

The  ALGOL  versions  of  the  LITE  codes  were  designed  to  run  on  the 
Burroughs  B-5500  computer.  The  multi-processing  feature  of  the  B-5500 
allows  on-line  read  in  and  printout  of  data  from  one  program  while  com¬ 
putation  is  being  performed  with  another  program.  Thus  the  LITE  codes 
may  be  read-in  and  printed  out  on-line.  The  object  programs*  may  be 
stored  on  tape  so  that  the  B-5500  can  read  the  programs  from  tape. 

Storing  the  object  programs  on  tape  reduces  the  number  of  cards  that  have 
to  be  loaded  each  time  a  program  is  run  with  one  of  the  codes.  Both  the 
ALGOL  and  FORTRAN  versions  use  one  tape  unit  for  punched  output  in  addi¬ 
tion  to  the  regular  input  and  output  tape  units.  The  punched  output  tape 
should  be  a  BCD  tape. 

The  running  time  for  the  LITE  codes  is  highly  dependent  upon  the 
input  data.  Therefore,  the  running  time  is  dependent  on  the  fraction  of 
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Che  total  collisions  that  are  taken  to  be  Rayleigh  scattering  events, 
on  the  average  number  of  collisions  followed  per  history,  and  on  the 
total  number  of  histories  followed.  The  multi-processing  feature  of 
the  B-5500  makes  it  difficult  to  predict  the  machine  time  required  to 
run  a  given  problem  unless  the  problem  is  the  only  one  beinu  processed 
in  the  B-5500.  The  time  required  to  run  a  LITE-I  problem  on  the  B-5500 
was  checked  for  three  separate  runs  of  the  problem.  The  times  required 
for  each  of  the  three  runs  were  found  to  be  different,  varying  by  a  fac¬ 
tor  of  three  over  the  range  of  the  slowest  to  the  fastest  time.  A  rough 
estimate  of  the  time  required  to  run  a  LITE-I  problem  on  the  B-5500  may 
be  calculated  with  the  formula: 

ET  «  0.024(1+(ND*NPHID1)(TNC) 

o 

where  ET  is  the  estimated  time  in  seconds, 

ND  is  the  number  of  detectors, 

NPHID  is  the  average  number  of  azimuthal  positions  selected  per  de¬ 
tector  for  each  collision,  and 

TNC  is  the  total  number  of  collisions  expected  for  the  problem = 

An  estimate  of  the  time  required  to  run  a  LITE-II  problem  on  the 
B-5500  may  be  calculated  with  the  formula: 

ET  «  0.017(1+ND) (TNC) 

where  ET,  ND  and  TNC  are  defined  as  above. 

In  general  the  same  problem  run  on  the  IBM  7090  and  the  Burroughs 
B-5500  will  require  1.5  to  2  times  as  much  time  on  the  B-5500  as  on  the 


IBM  7090. 
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4 . 2  Input  Data  Formats 

The  Input  data  formats  for  LITE-I  and  LITE-II  are  similar  even  though 
some  of  the  input  data  used  in  LITE-I  are  not  used  in  LITE-II.  The  input 
data  formats  will  apply  to  both  programs  unless  an  item  is  followed  by  an 
asteriek,  and  comments  are  made  prescribing  how  these  items  should  be 
treated  when  preparing  input  data  for  either  LITE-I  or  LITE-II.  The  unit 
used  to  define  distances  (centimeters,  meters,  feet,  etc.)  should  be  the 
same  for  all  distances  described  by  the  input  da'  to  the  LITE  codes.  If 

the  distance  unit  is  meters,  then  the  intensities  are  in  units  of  photons 

-2  -2 
m  /source  photon  for  LITE-I  and  photons  m  /unit  incident  flux  for  LITE-II. 

-2 

A  unit  incident  flux  is  defined  as  one  photon  passing  through  a  m  area 
parallel  to  the  slab  geometry. 

The  input  for  the  LITE  codes  is  divided  into  ten  groups.  The  num¬ 
ber  in  column  10  of  the  first  card  or  each  group  designates  the  group  of 
input  data  chat  follows  on  that  and  succeeding  cards. 

4. 3  Control  Numbers 

Table  I  contains  control  numbers  in  Group  1  that  specify  the  amount 
of  input  data  required.  Some  of  the  control  numbers  appear  again  in  the 
other  input  groups.  When  this  occurs,  the  two  values  input  for  the  same 
item  must  agree  or  the  program  will  detect  an  erroi  and  terminate  the 
problem.  The  number  of  histories  to  be  processed,  NHMAX,  may  be  divided 
into  sample  sizes  of  NHMAX/NGRGUP.  The  sample  size  must  be  less  than 
501.  The  number  of  groups,  NGROUP,  into  which  the  histories  are  divided, 
should  be  large  enough  to  provide  for  an  accurate  calculation  of  a  stan¬ 
dard  deviation.  Six  bases  are  input  for  the  random  number  generator. 
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This  allows  consecutive  random  numbers  to  be  generated  using  a  different 
base.  Generating  random  numbers  In  this  manner  Insures  the  Independence 
between  consecutive  random  numbers  and  decreases  the  possibility  of  pro¬ 
ducing  identical  histories  when  a  random  number  generator  recycles.  The 
core  storage  space  available  limits  the  number  of  receiver  positions, 
NDMAX,  and  the  number  of  print  azimuthal  angle  intervals,  NAZA,  that  can 
be  used  in  any  one  problem.  The  product  (NDMAX*NAZA)  must  never  be 
greater  than  40. 


TABLE  I 

Group  1  Input  Data  (Control  Numbers) 


Input 

Card  Format  Item _ Definition 


Limit 


1  110 
2  6110 


3  6110 


LIBRAY 

Input  group  number 

-1 

NHMAX 

Number  of  histories 

NGROUP 

Number  of  deviation  groups  (The  number 
of  histories  should  be  equally  divisi¬ 
ble  by  NGROUP.) 

NHMAX 

NGROUP 

NRMAX 

Number  of  regions 

4100 

NBMAX 

Number  of  boundaries 

*100 

NCMAX 

Maximum  collisions  allowed  per  history 

NDMAX 

Number  of  receivers,  (NDMAX*NAZAs40) 

*10 

NPA 

Number  of  print  cosines 

*25 

NPCOL 

Number  of  print  collisions 

124 

NAOP 

Option  for  sampling  source  polar  angles 
“  -1,  true  distribution,  no  biasing 
*  0,  biased  sampling  from  isotropic 
distribution 

■  1,  biasing  sampling  from  anisotropic 
distribution 
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TABLE  1  (continued) 


Input 

Card 

Format 

Item 

Definition 

Limit 

NAG 

Number  of  cosines  for  defining  source 
angular  distribution 

t37 

NRFLB 

Number  of  reflection  boundaries 

15 

NMAT 

Number  of  regions  having  different 

Mie  phase  functions 

o 

rH 

vl 

4 

6110 

NSOREG 

Number  of  source  region 

MAXR 

Maximum  number  of  reflections  allowed 

18 

IBASE 

Base  for  random  number  generator 

IBAS1 

Base  for  random  number  generator 

odd 

integers 

IBAS2 

Base  for  random  number  generator 

I  BAS  3 

Base  for  random  number  generator 

5 

2110 

I  BAS  4 

Base  for  random  number  generator 

I  BAS  5 

Base  for  random  number  generator 

4.4  Constants 

Table  II  contains  constants  in  Input  Group  2  that  are  used  by  the 
code,.  Since  the  values  to  be  assigned  these  constants  depend  on  the 
individual  problem,  they  are  included  as  input  rather  than  being  fixed 
within  the  codes.  For  economy,  the  distance,  DLONG,  should  be  greater  than 
the  maximum  possible  distance  within  an  inside  region.  The  distance,  DELTA, 
should  be  a  small  value,  but  large  enough  to  change  the  maximum  possible 
distance  within  an  inside  region  in  the  fifth  or  sixth  significant  digit 
when  added  to  that  distance.  ELIM  is  an  input  item  that  will  prevent  those 
errors  that  occur  with  a  very  small  probability  from  terminating  the  prob¬ 
lem,  When  fewer  than  ELIM  errors  occur,  those  errors  will  be  listed  with 
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TABLE  II 

Group  2  Input  Data 


Card 

Format 

Definition  Limit 

1 

110 

LIBRAY 

Input  group  number  "2 

2 

6R10.4 

HS 

Source  height 

DLONG 

Large  distance  for  boundary  distance 
calculation 

DELTA 

Small  distance  for  stepping  off  boundary 

SMVAL 

Small  value  for  testing  cosine  and  sine 
values  to  prevent  division  by  zero 

WCO 

Weight  cut-off  parameter 

ELIM 

Maximum  number  of  errors  to  be  allowed 

3 

2R10.4 

DMIN 

Minimum  distance  from  collision  to 
receiver  point 

A 

Biasing  parameter  for  sampling  source 
azimuthal  angle,  (not  used  in  LITE-II) 

the  output,  but  only  those  histories  containing  the  errors  will  be  termi¬ 
nated.  The  results  for  all  other  histories  will  be  saved  and  printed  as 
output. 

4. 5  Source  Angular  Distribution 

Input  Group  3  data  which  are  used  to  describe  the  source  polar  and 
azimuthal  angle  distributions  are  given  in  Table  III,  The  source  polar 
angle  distribution  is  assumed  to  be  defined  with  a  cumulative  distribution 
expressed  in  terms  of  the  cosine  of  the  angle  measured  from  the  positive 
H  axis.  Provisions  for  sampling  from  a  biased  distribution  are  also  in¬ 
cluded  to  improve  the  sampling  in  the  directions  toward  the  receiver 
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TABLE  III 

Group  'i  Input  Data  (Source  Angult>r  Distribution 


Input 

Card  Format  Item _ _ _ Definition 


Limit 


1  4110 


LIBRAY  Input  group  number 

NAOP  Option  for  sampling  source  angles 

(See  Table  I) 


«3 


NAG  Number  of  cosines  for  defining 

source  angular  distribution 

* 

NSAZA  Number  of  angles  used  in  describing  source 
azimuthal  angular  distribution  for  LITE-I 
(leave  blank  for  LITE-II) 


2  6R10.4  CANG(J) 

continues 

on  folloving  cards 


Cosine  values  at  which  the  cumulative 
source  polar  angular  probabilities  are 
given  (cosines  in  descending  order) 


J=*1>NAG 


Follows  jRIO.4  PAG (J) 

last  card 

containing 

CANG(J) 


Cumulative  probabilities  defining  J=1,NAG 

source  polar  angular  distribution  (first 
value  must  be  zero,  probabilities  in 
ascending  order) 


Follows  6R10.4  WAG(J) 

last  card 

containing 

PAG(J) 


Weight  parameter  for  biased  sampling 
from  anisotropic  polar  angular  dis¬ 
tribution  (omit  unless  NA0P"1) 


J=l, NAG 


Follows 
last  card 
containing 
WAG (NAG) 


A 

SAZA(J)  Angles  (deg.ees)  used  to  define  azi-  J-l, NSAZA 
muthal  angular  distribution  (ascend¬ 
ing  order)  (omit  for  LITE-II) 


A 

PAZA(J)  If  A<0,  cumulative  azimuthal  angular  J--1, NSAZA 
distribution,  otherwise  non-accumulative. 

(omit  for  LITE-II) 


*  WAG(J)  is  the  weight  that  will  be  assigned  to  particles  emitted  from  the 
source  at  angles  with  cosines  between  CANG(J-l)  and  CANG(J).  Thus  WAG(l) 
is  arbitrary,  since  it  will  never  be  used  by  the  code. 
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positions,  if  the  original  polar  angle  distribution  is  isotropic,  then 
the  program  adjusts  the  particle  weight  automatically;  but  if  the  original 
distribution  is  anisotropic,  then  the  weight  adjustment  parameters,  WAG, 
must  be  input. 

SAZA(J)  and  PAZA(J)  are  the  angles  and  probabilities  used  to  define 
the  azimuthal  angle  distribution  for  1ITE-I.  If  the  value  input  for  A 
in  Table  II  is  zero  or  negative,  then  PAZA(J)  should  be  points  read  off 
the  cumulative  probability  distribution  curve.  If  A>0,  the..  PAZA(J)  should 
be  points  read  off  the  non-accumulative  azimuthal  angular  density  curve. 

4 • 6  Reflection  Distribution 

Table  IV  lists  Input  Group  4  data  which  are  used  in  describing  the 
reflection  of  light  from  ground  and/or  cloud  surfaces.  If  the  problem 
contains  no  reflection  surfaces,  this  group  of  data  may  be  omitted.  A 
listing  of  Input  Group  4  data  is  required  for  each  reflection  surface. 

The  reflection  surfaces  are  limited  to  2  for  any  one  problem  and  the  bound¬ 
ary  number  assigned  to  any  reflection  surface  must  be  less  than  or  equal 
to  5.  Reflection  is  limited  to  plane  surface?.  The  polar  angle  distribu¬ 
tion  of  the  reflected  lighr  must  be  expressed  in  terms  of  the  cosine  of 
the  angle  measured  from  the  normal  to  the  reflection  surface  and  is  assumed 
azimuthally  symmetric.  If  the  reflection  distribution  is  iso  ropic  in 
the  upper  or  lower  hemispheres,  then  the  reflection  angle  distribution 
tables  should  be  omitted.  If  the  reflection  distribution  is  anisotropic, 
then  both  the  reflection  distribution  and  the  cumulative  distribution 
must  be  input.  The  reflected  distribution  POR(NRB,J)  is  defined  as  the 
probability  that  a  photon  reflected  from  surface  NRB  will  be  moving  with 


* 
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TABLE  IV. 


Group  4  Input  Data  (Reflection  Distributions 


Card 

Format 

Input 

Item 

Definition 

Limit 

1 

5110 

LIBLAY 

Input  group  number 

-4 

NRB 

Number  of  reflection  boundary 

£5 

JREFLT (NRB)  Reflection  Option 

*  1,  reflection  isotropic  in  upper 
hemisphere 

=  2,  anisotropic  in  upper  hemisphere 
=  3,  isotropic  in  lower  hemisphere 
"■  4,  anisotropic  in  lower  hemisphere 

NRFANG(NRB)  Number  of  points  used  to  define  re-  i37 
flection  distribution  at:  boundary  NRB 

NRFCOS (NRB)  Number  of  cosines  defining  cumulative 

reflection  distribution  at  boundary  NRB  £50 

2  2R10.4  ALBEDO(NRB)  Reflection  Albedo  Constants 

SIGNBT(NRB)  a  =■  (ALBEDO  -  SIGNOT*cosfi) 

3  6R10.4  *RFANG(NRB, J)  Cosines  of  angles  used  to  define  re-  J*l, 

continues  flection  distribution  (descending  NRFANG(NRB) 

on  follow-  order)  (omit  if  JRFLT(NRB)=1  or  3  or 

ing  cards  if  HRFANG(NRB)=<0) 

Follows  6R10.4  *P0R(NRB,J)  Probability  of  reflecting  per  unit  J=1j 
last  card  solid  angle  into  an  angle  whose  co-  NFFANG(NRB) 

of  RFANG's  sine  is  RFANG(NRB.J)  (Omit  if  JRFLT (NRB) 

=1  or  3)  (omit  if  NRFANG(NRB)=0) 

Follows  RFLCOS(NRB, Jj  Cosine  values  of  reflection  angle 

last  card  corresponding  to  the  cumulative  re- 

of  POR's  6R10.4  flection  distribution  for  values  of 

J/NRFCOS (NRB) .  Input  the  values  of 
RFLCOS  in  descending  order.  First 
cosine  is  input  for  probability  * 

1/NRFC0S(NRB) .  (Omit  if:  JREFLT  »  1 
or  3) . 

*  These  values  are  not  necessary  in  LITE-II;  however,  if  NRFANG(NRB)  i  0, 
some  arbitrary  values  must  be  input  for  these  values,  since  the  instruc¬ 
tions  for  reading  in  these  items  are  executed  if  NRFANG(NRB)  is  non  zero. 


J-l, 

NRFCOS (NRB) 
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a  direction  contained  in  a  unit  solid  angle  about  the  polar  angle  RFANG(J). 
The  cumulative  distribution  is  defined  by  evaluating  the  integral 

RFLCOS (NRB, J) 

HfCO^MbT  ■  2"  (  POR(lffiB,J)<UcosO) 

J. 

for  RFLCOS(NRBf J)  when  J  *  1,  2,  ....  NRFCOS(NRB).  Thus  the  probability 
that  a  photon  reflected  by  surface  NRB  will  have  a  polar  angle  whose  cosine 
lies  in  the  interval  [1,  RFLCOS (NRB, J) ]  is  J/NRFCOS (NRB)  where  NRFCOS (NRB) 
is  the  number  of  cosine  values  defining  the  cumulative  reflection  distribu¬ 
tion  for  surface  NRB. 

4. 7  Printout  Control 

Input  Group  5  data,  which  describes  the  upper  bounds  of  the  print  angle 
groups  and  the  print  collision  numbers,  are  shown  in  Table  V.  The  upper 
bounds  of  the  print  polar  angles  are  given  in  terms  of  the  cosine  of  the 
angles  between  the  source-receiver  axis  and  the  direction  of  the  scattered 
light  at  the  receiver  position  for  LITE-I  and  in  terms  of  the  cosine  of  the 
angle  between  the  particle's  direction  and  the  normal  to  the  receiver  plane 
for  LITE-II.  The  print  collision  numbers  are  the  orders  of  scattering  for 
which  scattered  light  intensities  are  to  be  listed.  The  light  intensity 
from  all  orders  of  scattering  greater  than  the  previous  collision  number 
up  to  and  including  the  given  collision  number  is  listed  opposite  each 
print  coll? f *  a  number.  The  azimuthal  print  angles  are  taken  to  be  in  de¬ 
grees  in  LITE-I  and  are  in  terms  of  the  cosine  in  LITE-II. 


> 
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TABLE  V. 

Group  5  Input  Data  (Printout  Control) 


Card 

Format 

U 

Definition 

Limit 

1 

3110 

LIBRAY 

Inout  group  number 

“5 

NPCOL 

Number  of  print  collisions 

i24 

NPA 

Number  of  print  cosines  (polar  angle) 

i25 

NAZA 

Number  of  print  azimuthal  intervale 
(NDMAX*NAZA<40) 

2 

continues 
on  follow¬ 
ing  cards 

6110 

INCOL(J) 

Print  collision  numbers  (in 
ascending  order) 

Ts=  1  , 

NPCOL 

Follows  6R10.4 
last  card 
of  INCOL's 

*CIPA( J) 

Print  cosines  polar  distribution 
(descending  order) 

J--1 , 

NPA 

Fo ’ 1 nws 
last  card 
of  CIPA's 

6F.1D.4 

*CAZA( J) 

Print  azimuthal  angles  in  degrees 
for  LITE-I  (ascending  order).  Co¬ 
sines  of  the  print  azimuthal  angle 
for  LITE-II  (descending  order) 

J=l> 

NAZA 

*  Intensities  printed  for  CIPA(l)  are  for  angle  interval  O°i0<cos  ^"(CIJA(l) 
and  intensities  printed  for  CAZA(l)  are  for  angle  interval  0°<i)i<.cos 
(CAZA(l) ) 


4. 8  Receiver  Locations 

Input  Group  6  data  which  describe  the  receiver  locations  are  listed  in 
Table  VI.  In  tracing  histories  with  LITE-I,  all  source  particles  are 
started  in  the  zero  azimuthal  direction  and  the  change  in  azimuthal  position 
is  recorded  for  each  collision.  Then,  before  an  estimate  of  the  intensity 
that  scatters  to  each  receiver  is  made,  a  source  azimuthal  angle  is  selected 
from  the  input  azimuthal  angular  distribution  and  this  angle  is  added  to  the 
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TABLE  VI. 

Group  6  Input  Data  (Receiver  Locations) 


Card 

Input 

Format  Item 

Definition 

Limit 

1 

2110  LIBRAY 

Input  group  number 

*6 

NDMAX 

Number  of  receivers 

ilO 

2 

3R10.4,  HD(1) 

110, RIO. 4 

Height  of  1st  receiver  (altitudes 
in  ascending  order) 

*RD(1) 

Radius  of  1st  receiver 

**AZD(1) 

Azimuthal  position  of  1st  receiver 
(degrees) 

*NPHID(1) 

Number  of  source  azimuthal  selections 
for  1st  receiver 

*DBSS (1) 

Direct-beam  source  strength  for 

1st  receiver 

3 

3R10.4,  HD(2) 

1.10,  RIO.  4 

*RD(2) 

Height  of  2nd  receiver 

Radius  of  2nd  receiver 

**AZD(2) 

Azimuthal  position  of  2nd  receiver  (degrees) 

*NPHID(2) 

Number  of  source  azimuthal  selections 
for  2nd  receiver 

DBSS (2) 

Direct-beam  source  strength  for  2nd 
receiver 

A  card  similar  to 

2  and  3  is  required  for  each  receiver 

Last 

card 

of 

group 

3R10.4,  HD (NDMAX)  Height  of  last  receiver 

110, RIO. 4 

*RD (NDMAX)  Radius  of  last  receiver 

6 

**AZD(NDMAX)  Azimuthal  position  last  receiver  (degree'*' 

*NPHID 

(NDMAX) 

Number  of  source  azimuthal  selections 
for  last  receiver 

*DBSS 

(NDMAX) 

Direct-beam  source  strength  for  last 
receiver 

*  The  NPHID(J)  values  are  not  used  by  LITE-II,  and  the  RD(J)  and  DBSS(J) 
values  should  be  input  for  LITE-II  as  discussed  in  Section  2.8. 


**  The  azimuthal  positions  AZD(J)  should  not  be  included  in  the  LITE-II 
input  and  the  values  of  NPFID(J)  and  DBSS(J)  should  be  shifted  to  the 
left  10  columns. 


* 
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change  In  the  particle's  azimuthal  position  to  give  the  azimuthal  position 
of  the  collision.  Several  source  azimuthal  angles  may  be  chosen  for  each 
collision,  which,  in  effect,  give  several  collisions  at  the  same  height 
and  radius  but  at  different  azimuthal  positions.  The  estimates  of  the  in¬ 
tensities  from  the  collisions  lor  ited  at  the  different  azimuthal  positions 
are  then  averaged  to  give  the  final  estimates  for  those  collisions  at  each 
of  the  receiver  positions.  The  input  item  NPHIb(J)  specifies  the  number 
of  source  azimuthal  angles  that  will  be  selected  for  the  jth  receiver  point. 

In  LITE-II  the  source  azimuthal  angle  is  always  taken  to  be  0°,  there¬ 
fore,  no  value  need  be  input  in  LITE-II  for  the  azimuthal  position  of  the 
receivers,  AZD(J),  but  a  value  may  be  input  for  the  radial  position  of  the 
receivers  to  be  used  in  calculating  the  direct  intensities. 

In  LITE-I,  DBSS(J)  •  the  light  intensity  per  unit  source  strength 
emitted  per  unit  solid  angle  in  a  direction  toward  the  jth  receiver  position. 
LITE-I  calculates  the  direct-beam  intensity  for  the  jth  receiver  position 
with  the  expression 

DBI  =  (DBSS(J)e_RH0T)/T2 

where  RHOT  is  the  number  of  optical  mean-f ree-path  lengths  between  the 
source  and  the  jth  receiver  position,  and 
T  is  the  distance  from  the  source  point  to  the  jth  receiver  posi¬ 
tion. 

The  equation  used  for  direct-beam  calculations  in  both  LITE-I  and 
LITE-II  are  identical,  therefore,  the  direct-beam  calculation  is  only 
applicable  o  plane  parallel  sources  in  LITE-II.  For  a  plane  parallel 
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source,  the  values  input  for  RD(J)  should  be  given  by  the  expression 
RD(J)  «  v'HD(i  -HS)/cos6 

o 

where  HD(J)  is  the  height  of  the  Jth  receiver  plane, 

HS  is  the  height  of  the  source,  and 
cos0q  is  the  cosine  of  the  angle  at  which  the  source  is  incident 
upon  the  slab. 

in  addition,  DBSS(J)  should  be  input  as  the  product  of  the  number  of 

particles  emitted  per  unit  area  from  the  source  plane  times  the  secant  of 

2 

the  source  angle  times  the  slant  thickness  square,  T  ,  between  tbs  source 
and  receiver  plane. 

4.9  Geometry  Description 

Input  Group  7  data  listed  in  Table  VII  provide  for  the  geometry  des¬ 
cription.  An  air-ground  geometry  is  defined  with  region  boundaries  com¬ 
posed  of  horizontal  planes  and  right  circular  vertical  cylinders  in  LITE-I 
and  by  horizontal  planes  in  LITE-II.  The  planes  are  identified  as  bound¬ 
ary  type  1  and  the  cylinders  as  boundary  type  2.  For  boundary  type  1, 

COEE  is  the  H  intercept  of  the  plane,  and  for  boundary  type  2,  COEE  is  the 
radius  of  the  cylindrical  surface.  All  reflection  surfaces  must  be  assigned 
boundary  numoers  less  than  or  equal  to  5.  A  negative  sign  preceding  the 
boundary  number,  NBOUND,  denotes  a  reflection  boundary.  Regions  are  defined 
by  the  signed  boundary  numbers  encompassing  the  region.  In  reference  to 
planes,  the  minus  sign  denotes  a  "lower"  plane,  and  the  plus  sign  denotes 
an  "upper"  plane.  In  reference  to  a  cylindrical  surface,  the  minus  sign 
denotes  an  "inner"  surface,  and  the  plus  sign  denotes  an  "outer"  surface 
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TABLE  VII. 


Group  7  Input  Data  (Geometry  Description) 


Card 

Format 

Input 

Item 

Definition 

Limit 

1 

3110 

LI BRAY 

Input  group  number 

-7 

NBMAX 

Number  of  boundaries 

1100 

NRMAX 

Number  of  regions 

S100 

2 

2110 

UNBOUND (1) 

Position  of  boundary  1 

in  boundary 

RIO.  A 

table 

ITYPE(l) 

Type  of  boundary  1,  ITYPE(1)“1,  H  plane 

ITYPE(l)-2,  cylinder 

C0EE(1) 

Coefficient  of  boundary 

1 

A  card 

similar  to 

card  2  is  required  for  each  boundary. 

Follows 

last 

boundary 

card 

315, 

R5.2 

815 

*NREG(1) 

NB(1) 

Position  of  region  1  in  region  table 

Number  of  boundaries  encompassing 
region  1 

MAT(l) 

Phase  function  number  for  region  1 

EMP(l) 

Importance  number  for  region  1 

IB(1,1) 

First  boundary,  bounding  region  1  (sign 
on  IB  designates  inner  or  outer  bound¬ 
ary  with  respect  to  region  1) 

MPR(1, 1) 

Most  probable  region  of  entry  across 
first  boundary  of  region  1 

IB(1, 2) 

Second  boundary  bounding  region  1  with 
appropriate  sign 

MPR(1, 2) 

Most  probable  region  of  entry  across 
second  boundary  of  region  1 

IB(1, 3) 

ThUd  boundary  bounding  region  1  with 

appropriate  sign 

MPR(I,3)  Most  probable  region  of  entry  across 
third  boundary  of  region  1 
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TABLE  VII.  (continued) 


Card  Format 

Input 

Item 

Definition 

Limit 

IB(1, 4) 

Fourth  boundary  bounding  region  1 
with  appropriate  sign 

MPR(1, 4) 

Most  probable  region  of  entry  across 
fourth  boundary  of  region  1 

A  card  similar  to 
outside  regions. 

the  preceding  card  is  required  for  each  region 

Including 

*  Boundaries  and  regions  are  assigned  numbers  sequentially  in  the  order  they 
arc  listed  in  the  input.  The  values  NBOUND(J)  and  NREG(J)  therefore  should 
both  begin  with  1  for  the  first  boundary  or  region  listed  and  increase 
sequentially  for  the  remaining  boundaries  or  regions. 

All  space  must  be  identified  including  outside  regions  which  are  not  completely 
encompassed  by  boundaries.  The  most  probable  regions  of  entry,  MPR,  are 
given  to  speed  up  the  region  search  process.  When  there  are  two  or  more 
possible  regions  of  entry  across  a  given  boundary,  the  region  with  the  small¬ 
est  region  number  should  be  given  as  the  most  probable  region  of  entry. 

The  region  importance  number,  EMP,  is  given  to  reduce  the  sampling 
in  regions  of  minor  importance.  A  particle  when  crossing  from  one  region 
to  a  region  of  more  importance  will  not  be  affected  by  the  region  importance 
numbers.  However,  when  a  particle  crosses  from  a  given  region  to  another 
region  of  less  importance,  a  random  number  will  be  generated  and  the  his¬ 
tory  terminated  if  the  ratio  vf  the  importance  numbers  (EMP  for  region 
entered/EMP  for  region  exited)  is  less  than  the  random  number.  If  the  ratio 
of  the  importance  numbers  is  greater  than  the  random  number,  then  the  parti¬ 
cle  weight  is  multiplied  by  the  reciprocal  of  the  ratio  and  tracing  of  the 
history  is  continued. 


4 . 10  Aerosol  Scattering  Data 


The  Input  Group  8  data  listed  in  Table  VIII  define  the  aerosol  parti¬ 
cle  scattering  phase  functions  to  be  used  in  the  air-grou..J  geometry.  The 
data  shown  in  Table  VIII  for  Input  Group  8  must  be  repeated  for  each  phase 
function  to  be  defined.  Up  to  10  phase  functions  may  be  defined  in  any 
one  problem.  MAT  is  the  number  assigned  to  the  phase  function  defined  by 
the  data  in  Input  Group  8.  This  number  is  used  to  designate  the  phase 
function  for  each  of  the  regions  defined  by  the  Input  Group  7  data. 

Special  routines  have  been  incorporated  into  the  code  for  treating 
Rayleigh  scattering,  therefore,  it  is  only  necessary  to  input  the  aerosol 
scattering  phase  functions.  If  only  Rayleigh  scattering  is  to  be  con¬ 
sidered  (RAYLEE  ■  1.0),  then  Input  Group  8  data  defining  DIFCOS(MAT > J) 
PDCOS(MAT.J)  and  PHANG(MAT,J)  may  be  omitted.  The  machine  codes,  RRA-42 
and  RRA-45,  described  in  Ref.  3,  can  be  used  to  compute  the  values  to  be 
input  for  the  parameters  PDCOS,  DIFC0S  and  PHANG. 

4.11  Cross  Section  Input  Data 

Input  Group  9  data  listed  in  Table  IX  give  the  distance  in  mean  free 
paths  from  ground  level,  the  ratio  of  the  scattering-to-total  cross  sec¬ 
tion,  and  the  ratio  of  Rayleigh-to-scattering  cross  section  as  a  function 
of  altitude.  The  scattering  cross  section  is  taken  to  be  the  sum  of  the 
aerosol  and  Rayleigh  scattering  cross  sections.  The  difference  between 
the  extinction  coefficient  (total  cross  section)  and  the  scattering  cross 
section  is  defined  a3  the  absorption  cross  section. 
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TABLE  VIII. 

Group  8  Input  Data  (Aerosol  Scattering  Data) 


Card 

Format 

Input 

Item 

Definition 

Limit 

1 

2110 

LIBRAY 

Input  group  number 

-8 

MAT 

Aerosol  scattering  phase  function 
number  for  the  following  data 

s.10 

2 

2110 

10X.R10.4 

NDFCOS 

(MAT) 

Number  of  cosines  for  which  the  aerosol 
scattering  phase  function  are  given 

l50 

NPHANG 

(MAT) 

Number  of  cosines  used  to  describe  the 
cumulative  angular  distributions  for 
aerosol  scattering 

S50 

RAYLEE(MAT) 

■  1.0,  Rayleigh  scattering  only 
*  0.0,  Both  Rayleigh  and  aerosol  scattering 

3 

6R10.4 

*DIFCOS 
(MAT, J) 

Cosine  values  at  which  aerosol  scattering  J*»l, 
phase  functions  are  listed,  (descending  NDFCOS 
order)  Omit  if  RAYLEE  -  1.0.  (Omit  if  (MAT) 
NDFCOS (MAT)  =  0) 

Follows 

last 

DIFCOS 

card 

6R10.4 

*PDCOS 

Values  of  the  phase  function  at  the 
designated  cosines.  Omit  if  RAYLEE 
*  1.0.  NDFCOS  values.  (Omit  if 

NDFCOS (MAT)  *  0) 

>1. 

NDFCOS 

(MAT) 

Follows 

last 

PDCOS 

card 

&R10.4 

PHANG 
(MAT, J) 

Cosines  at  equal  probability  intervals 
describing  cumulative  phase  function. 
Omit  if  RAYLEE  *  1.0  (descending  order) 
PHANG (MAT, 1)  -  1/ NPHANG (MAT) 

J-l. 

NPHANG 

(MAT) 

*  The  values  input  for  DIFCOS (MAT, J)  and  PDCOS(MAT,J)  are  not  used  by 
LITE-II.  However,  these  values  need  not  be  removed  if  one  wishes  to 
use  the  same  Group  8  input  data  in  LITE-II  that  have  been  made  up  for 
LITE-I. 
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TABLE  IX. 


Group  9  Input  Data  (Cross  Section  Input  Data) 


Input 

Card 

Format 

Item 

Definition 

Limit 

1 

2110 

LIBRAY 

Input  group  number 

-9 

NOH 

Number  of  altitudes  HV  at  which  mean- 
free-path  distances  from  ground  level 
are  to  be  listed 

<100 

2* 

4R10.4 

HV  (J)  * 

Altitudes  for  which  cross  section 

J-l» 

through 

data  are  to  be  listed 

NOH 

NOH+1 

TAU(J) 

Mean-f ree-path  distances  for  alti- 

>1. 

tude  HV (J) 

NOH 

SCATR(J) 

Ratio  of  scattering-to-total  cross 

>1. 

section  for  altitude  HV(.T) 

NOH 

RAYR(J) 

Ratio  of  Rayleigh-to-scattering 

J«l> 

cross  section  for  altitude  HV(J) 

NOH 

*  Card 

2  contains  the  four 

items  HV ( J) ,  TAU(J),  SCATR(J),  and  RAYR(J)  for 

J-i; 

the  same 

four  items 

for  J*2  are  on  the  next  cards,  and  etc. 

The 

distance 

in  mean  free  paths,TAU(J)  from  the  ground  level  to  height 

HV(J)  is  defined  by  the  equation 

HV  (J) 

TAU(J)  =  /  E  (h)dh 
0 

where  (h)  is  the  extinction  coefficient  as  a  function  of  the  altitude  h. 
4. 12  Data  Print  and  Check  Options 

Data  for  Input  Group  10  as  given  in  Table  X  are  contained  on  a  single 
card.  This  card  gives  the  problem  number  and  data  print  and  check  options. 
The  problem  number  is  printed  on  output  to  identify  the  output  data.  IDUMP 
is  a  print  option  that  allows  the  printout  of  intermediate  values  calcu¬ 
lated  during  the  generation  of  each  history.  This  option  is  included  to 
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TABLE  X. 


Card 

Format 

Input 

Item 

Definition 

Limit 

1 

AI10 

LIBRAY 

Input  group  number 

-10 

NPROB 

Problem  number 

IDUMP 

Option  for  intermediate  printout 
*  0,  no  intermediate  printout 
=  1,  gives  intermediate  printout 

ICHECK 

Option  for  checking  input  data 
*  0,  no  check  on  input  data 
-  1,  check  input  data 

aid  in  checkout.  The  quantity  of  printout  produced  when  IDUMP  is  non-zero 
makes  it  inadvisable  to  print  the  intermediate  data  if  more  than  ten  his¬ 
tories  are  being  processed. 

ICHECK  is  an  option  that  provides  for  several  checks  on  the  input  data. 
The  input  cumulative  probability  tables  are  checked  for  ascending  order,  and 
several  of  the  cosine  tables  are  checked  for  descending  order.  In  addition, 
various  input  values  are  checked  to  insure  that  storage  locations  reserved 
for  dimensioned  variables  are  not  exceeded.  Cards  within  the  input  data 
groups  1  through  9  must  be  arranged  in  the  order  specified  in  Tables  I 
through  IX,  but  it  is  not  necessary  to  order  the  groups.  The  cards  for 
Input  Group  10  must  be  loaded  after  the  cards  for  all  other  input  groups 
have  been  loaded. 

A. 13  Loading  Instructions 

The  LITE  codes  are  designed  to  process  several  problems  during  any  one 
computer  run.  The  input  data  for  a  second  problem  may  be  loaded  directly 
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behind  the  input  data  for  Input  Group  10  for  the  previous  problem.  Further¬ 
more,  if  any  of  the  input  data  groups.  1  through  9  are  identical  for  two 
consecutive  problems,  that  input  data  group  may  be  omitted  in  the  second 
problem.  Each  individual  problem  must  contain  a  card  for  Input  Group  10. 
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V.  LITE  CODE  SAMPLE  PROBLEMS 

A  sample  problem  is  included  for  both  LITE-I  and  LITE-11  to  provide 
an  example  of  the  input  and  output  formats  for  the  two  codes.  The  printed 
outputs  shown  in  Tables  XII  and  XIV  were  obtained  from  the  FORTRAN-IV 
versions  of  the  LITE  codes,  but  the  format  does  not  vary  significantly 
from  the  output  format  produced  by  the  ALGOL  versions .  It  is  not  possible 
to  obtain  exactly  the  same  results  when  running  a  given  problem  on  both 
the  FORTRAN-IV  and  ALGOL  versions  of  the  LITE  codes  because  of  the  differ¬ 
ences  in  the  random  number  generators  used  in  the  two  versions  and  the 
differences  in  the  word  lengths  for  the  IBM  7090  and  Burroughs  B-5500 
computers. 

5.1  LITE-I  Sample  Problem 

The  sample  problem  for  LITE-I  was  designed  to  calculate  the  light  in¬ 
tensity  scattered  from  a  point  isotropic  source  located  807.7  meters  above 
the  ground  to  a  point  receiver  placed  just  six  meters  off  the  ground  sur¬ 
face  at  a  horizontal  distance  of  20,120  meters  away.  The  atmospheric 
model  used  to  define  the  variation  of  the  aerosol,  ozone,  Rayleigh  and 
extinction  coefficients  with  altitude  is  that  given  by  Elterman  (Ref.  4) 
for  0.65  micron  wave  length  light.  The  phase  function  assumed  for  aerosol 
scattering  was  obtained  from  calculations  reported  in  Ref.  3  for  the  "Haze 
C"  aerosol  size  distribution.  The  ground  was  assumed  to  be  a  Lambert  type 
surface  reflecting  light  with  an  albedo  of  0.9. 

5.1.1  Input  for  LITE-I  Sample  Problem 

The  input  for  the  LITE-I  sample  problem  is  given  in  Table  XI.  Bias 
sampling  is  used  in  sampling  from  both  the  source  polar  and  azimuthal 
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angular  distributions.  The  source  azimuthal  angle  is  chosen  from  the  den¬ 
sity  function 


and  the  polar  angular  distribution  is  input  in  tabular  form  so  that  the 
cosine  of  the  polar  angle  is  chosen  with  equal  probability  between  the 
values  of  1.0,  0.6667,  0.4,  0.2,  0.06667,  0,.  -0.06667,  -0.2,  -0.4,  -0-6667  and 
-1.0.  Although  only  50  histories  were  considered  for  the  sample  problem, 
the  selection  of  five  source  azimuthal  angles  for  each  collision  point 
makes  the  results  equivalent  to  that  which  would  have  been  obtained  from 
running  a  problem  for  250  histories,  where  only  one  source  azimuthal  angle 
for  each  collision  was  selected.  The  atmosphere  is  bounded  by  only  two 
plane  surfaces,  one  at  the  ground,  h“0,  and  one  at  50,000  meters. 

5.1.2  Output  for  LITE-I  Sample  Problem 

Table  XII  lists  the  output  for  the  LITE-I  sample  problem.  Pages  1 
and  2  of  Table  XII  give  the  scattered  intensity  as  a  function  of  collision 
number  for  the  two  deviation  groups  considered.  Pages  3  and  4  of  Table 
XII  give  the  scattered  intensities  averaged  over  the  two  deviation  groups 
and  the  deviation  of  the  results  for  the  two  groups  about  the  averaged 
values.  Page  5  of  Table  XII  records  the  number  of  histories  terminated 
by  each  of  the  history  termination  processes  and  also  the  total  number  of 
collisions  that  occurred.  Pages  6  and  7  of  Table  XII  give  the  scattered 
intensity  as  a  function  of  polar  angle  and  order  of  reflection  for  the 
two  receiver  azimuthal  intervals  from  0s  to  90s  and  from  90°  to  180' 

Page  8  of  Table  XII  gives  the  scattered  intensity  at  the  receiver  as  a 


TABLE  XII.  PRINTOUT  TOR  LITE- I  SAMPLE  PROBLEM! 


0 


42 


rt 

J 


<r 

> 


«✓*. 

x 

x 


X 

h- 

o 

X 

X 

X 


9* 

IT 

\ 


iP 

IP 


wT 


c 

M- 

< 

X 

X 

2 

x 


5 

w* 

-5* 

d 

a 


l  I  t  t  t  I  t  l  I  l  l  I  I  I  i 

0.-*il.U.U.lLlLlLU-LLlLlLll.iJ.  LL 

w*  —  '\<\X**^XXC  —  <N<\>T  X 

—  >0  X 

•  I  >••••••«•«••  I  I  I  « 

<\  -C  -C  ~  S'  ^X  —  tN.vTrrpOpOCCCCCO  if 

I  I  I  I  I  I 

—  —  —  —  —  h- 


X 

u. 

X 

X 


X 

3 

2 

< 

X 

X 

X 

X 

I/' 


TABLE  XII.  (continued) 


43 


IN 


a 

3 

a 


at 

u 


z 

c 


> 

XI 

3 

at 


3 


a. 

t/> 

X 

X 


a. 

»* 


at 

a 


u 

X 


c 

7> 

* 

<7> 

C 

y 

y» 


* 

3 

<4 

X 

a 


i/) 

z 

a 

!/> 


3 

O 


X 

X 

(£ 

i  i  i  i  i  i  i  i  T  7  i  i  i  i  i  i  i  i  i  t  z 

—  XXXXXXXXXXXXXXXXXXX  X 

—  T»(NC  —  •*  rr  X  X  ~C  f**  C 

•  I  <  t  I  I  I  I  t  i  I  I  I  I  •  •  •  I  •  •  «  z 

—  —  m  ,*  (\  —  —  w  —  —  ^  —  r*irrr-»x^C  *•  < 

X 

x 

t ^ 

x  X 

—  xx  —  -  —  —  —  —  X  x 

C  !/t 

X  4 

X 


TABLE  XII.  (continued) 


* 


44 


tx 

x 

* 


Z 

O 

i/I 


3 

J 


Z 


3  X 


SI 

3 

<A 

X 


X 

c 


c 

& 

c 

O' 

1/1 


(/! 

z 


< 

o 


i/i 

z 

3 


O 

o 


.*  *r  it  tu'irN'*co'tiri  — 

^  ^  ^  ^  ^  ^  ^  ^  M  M  Ml  I-*  «M 

I  I  I  I  I  I  I  I  I  t  I  I  I  I  I  I  f  I  I  t 

•-'xxxxxxxxxxxxxxxxxxx  a 

ONiT^CC-fl«<«irN-M\®NC-  0> 

(7COf\CXiT—  f»*(>rl»N'OOir»<y«*'e  -* 

I  t  •  I  I  )  I  I  I  I  I  I  I  I  I  I  I  I  I  I  • 

—  —  z-r-tc  ** 


<■*  ^ 


«  V  o 

«*  «*  <\ 


x 

C 

w 

< 

X 

a 

z 

X 

v5 

X 

X 

c 

X 


X 

c 

c 

z 

< 

X 

X 

c 


X 

t/1 


TABLE  XII.  (continued) 


45 


i  i  i  i  i  l  l  l  i  i  i  l  i  i  l  i  i  i  i 
'•aiU.UbXd.U.U.U.U.a.ti.U.lLU.tl.U.U.tl.ti. 


< 

*•  u. 

a  ^ 

►»  <4 

« 


TABLE  XII.  (continued) 


0 


46 


O 

<* 


« 

•  <A 

<0i  Z 

a  at  o 

U  IL  — 

a  >-  >- 

UJ  UJ  o 
Ul  X  UJ 
0  4  -1 

x  at 
Uj  4 
& 

at  « 
n  n  n  n 

HO  II  Q 

x  z  o 

a  4  n-  at 
2  »■  3  iu 
XUS 


a 

uj 

at 


ur 

Z  3 

X 

.r 

C  a.  »- 

2 

4 

—  x  I 

z 

h> 

1/1  —  o 

X 

o  Z  a. 

3 

o  a  x 

X 

c  — 

mm 

O  JX 

M 

a;  3 

< 

Z 

a.  at  X 

z 

UJ 

X  - 

-J 

h  ai  Z 

cC 

X  - 

X 

Z  ►-  X 

a 

2 

!L 

a 

X  V  ► 

4. 

let 

1 

C  3  C 

c 

UJ 

u.  a.  -it 

4 

<-  <-  <- 

w* 

mm 

4  4  4 

4 

_ 

z  z  z 

2 

w  mm  mm 

mm 

• 

t 

XXX 

X 

a 

UJ 

or 

x  at  x 

X 

4. 

h— 

X 

n  a.  n 

uu 

(X 

< 

a. 

i-  ►- 

>M 

x 

pm 

3 

g 

z 

a.  a.  u. 

a. 

a 

c 

ac  at  at 

X 

o 

3 

ju  a.  ui 

UL 

o 

or 

U 

Hi 

3 

< 

z 

<0.  i/5  1/1 

z 

I 

3 

a.  a.  a. 

a. 

c 

o 

M 

M  M  M 

Mi 

X 

XXX 

X 

or 

<1 

<4 

3  a  c 

Mi 

■■Ij 

z 

*•  N»  1- 

-J 

y* 

1/1  1/1  1/1 

<A 

•J 

a. 

z 

N-  ■—  *— * 

mm 

Q 

X 

X 

XXX 

X 

o 

IX 

2 

c  c  c 

o 

M 

> 

l/> 

ly 

X 

4 

c 

MW 

c 

& 

mm 

3f 

X 

TABLE  XII.  (continued) 


4/ 


C 


7 

7 

7 

7 

X 

X 

Z 

a 

O 

7 

<N 

• 

a 

Ml 

Ml 

X 

Ml 

M 

Ml 

mm 

X 

X 

X 

X 

PS» 

pi 

LL 

ps 

X 

1 

1 

1 

1 

1 

1 

l 

| 

1 

1 

1 

1 

1 

•z 

»-» 

< 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

c 

o 

X 

X 

X  (\|  f» 

O 

X  IT 

«\ 

7 

c 

r- 

7 

O' 

9 

a 

z 

O 

% 

*M 

<\ 

O' 

z 

O' 

z 

X 

c 

P* 

LL 

PS 

X 

z 

IS 

a 

7 

7 

7 

<r 

X 

PM 

** 

fN 

X 

o 

• 

• 

t 

9 

• 

9 

• 

• 

• 

9 

• 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

• 

O' 

z 

pT 

rr 

X 

<\j 

M* 

r\J 

z 

X 

rr> 

z 

U 

0 

0 

0 

c 

c 

a 

c 

c 

c 

0 

0 

a 

O' 

u. 

II 

(V 

e 

X 

X 

O' 

o 

O' 

O' 

o 

o 

c 

X 

■Jl 

— 

X 

-* 

•M 

N 

(V 

X 

T 

c 

VT 

X 

X 

X 

X 

X 

X 

X 

X 

X 

O 

o 

X 

r»  O' 

«M 

fO 

C 

c 

c 

c 

« 

l/' 

o 

pM 

X 

LT 

X 

X 

z 

rr 

u. 

X 

pr 

Z  Z  (T 

X 

z 

IP 

z 

rT 

Z 

9 

« 

9 

t 

« 

• 

• 

• 

• 

• 

9 

9 

9 

9 

• 

9 

• 

9 

9 

9 

9 

9 

9 

1 

9 

9 

\A 

0- 

Ml 

PN 

X 

<\ 

z 

LTN 

G 

X 

c 

0 

a 

o 

0 

0 

o 

G 

C2 

c 

G 

c 

o 

0 

0 

c 

rr 

7 

mm 

3 

a 

o 

9 

x 

•0 

X 

o 

X 

z 

O' 

X 

X 

z 

X 

UJ 

X 

f\ 

mm 

X 

*■ 

mm 

X 

X 

O 

c 

II 

i 

1 

1 

i 

1 

i 

1 

t 

UJ 

o 

c 

7 

X 

X 

X 

X 

X 

X 

X 

X 

pj 

a 

I 

IT 

X 

rs 

z 

c 

X 

O' 

7 

LL 

9 

M 

X 

z 

O' 

X 

IT 

z 

Z 

a. 

O' 

C 

x 

x 

>7 

IT 

m 

rv. 

z 

a 

(/! 

• 

t 

t 

• 

• 

9 

• 

« 

• 

• 

• 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

X 

O' 

f\j 

<7 

pc 

X 

Ml 

a 

o 

a 

0 

0 

c 

a 

o 

c 

o 

c 

G 

G 

c 

c 

c 

c 

7 

z 

z 

LL 

G 

< 

-0 

a 

X 

z 

IT 

in  z 

O' 

X 

G 

PM 

rv 

c 

3 

7 

X 

PM 

pM 

mm 

pM 

X 

M 

«Ni 

1 

<N 

rv 

fN. 

r\ 

«M 

oc 

X 

1 

1 

1 

i 

1 

i 

1 

1 

i 

1 

LL 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

z 

pr 

md 

X 

x 

z 

O' 

c 

r\ 

z 

7 

r\ 

X 

G 

X 

z 

X 

c 

X 

O' 

rr 

c 

O' 

X 

— w 

O 

PM 

z 

z 

<7 

c 

M» 

fv 

7 

X 

*M 

X 

G 

z 

or 

« 

« 

« 

• 

t 

9 

• 

• 

9 

• 

9 

9 

9 

< 

9 

9 

9 

• 

9 

9 

9 

9 

9 

9 

9 

9 

X 

ac 

Ml 

pr 

X 

i z 

X 

mm 

<v 

z 

7 

X 

c 

c 

c 

G 

c  c 

G 

x 

c 

c 

c 

o 

c 

a 

PM 

X 

X 

C 

X 

X 

2 

t 

X 

X 

(t 

a 

a 

G 

7 

7 

-7 

X 

X 

<M 

C 

f** 

c 

cr 

7 

rr 

c 

X 

o 

X 

OT 

PM 

X 

mm 

CN. 

pM 

\ 

«M 

r\ 

X 

* 

LL 

w 

1 

1 

1 

i 

1 

i 

1 

1 

1 

1 

1 

i 

1 

a 

*m 

X 

fN 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

c 

II 

X 

X 

O' 

X 

■7 

7 

o 

X 

7 

c 

7 

7 

f* 

X 

z 

<T 

<T 

X 

X 

*— 

c 

o 

o 

pM 

C 

X 

i 

* 

X 

X 

c 

C 

z 

Z 

c 

X 

X 

\ 

\ 

p\ 

X 

c 

« 

t 

9 

• 

9 

9 

• 

X 

t 

« 

9 

9 

9 

• 

• 

9 

9 

9 

9 

9 

9 

9 

♦ 

9 

9 

9 

X 

L' 

z 

• 

C 

<*> 

rnm 

X 

7 

f** 

mm 

o 

r\ 

t* 

X 

X 

£2 

c 

c 

X 

c 

G 

c 

c 

G 

c 

c 

c 

PM 

M 

3 

< 

LT 

-i 

c 

X 

IN 

7 

IT 

>T 

7 

O' 

G 

f** 

X 

mm 

t  , 

LL 

-1 

X 

X 

X 

*M 

X 

•M 

X 

X 

f\ 

M 

IN 

mm 

X 

> 

< 

x 

1 

1 

1 

! 

1 

l 

1 

1 

1 

1 

1 

1 

X 

■t 

x 

Ml 

X 

X 

X 

X 

X 

X 

■L 

X 

X 

X 

X 

X 

< 

> 

X 

G 

X  Z 

X 

X 

?** 

7 

X 

f»- 

z 

.*■* 

M 

r~ 

3 

t 

X 

rs 

X 

z 

PM 

r«* 

X 

z 

r*~ 

rr 

pr 

a 

mm 

X 

X 

z 

O' 

x 

fT 

7 

•M 

X 

r 

o 

rr 

X 

x. 

w 

t 

9 

t 

t 

t 

• 

• 

• 

« 

• 

9 

9 

9 

9 

9 

9 

9 

9 

c 

t 

9 

? 

9 

9 

9 

9 

cr 

z 

% 

II 

X 

O' 

iT 

X 

X 

PM 

PM 

c 

PM 

f- 

c 

c 

G 

Ml 

c 

G 

c 

a 

c 

c 

c 

V-p 

3 

G 

x 

LL 

< 

I 

< 

X 

z 

X 

A 

z 

IT* 

X 

s. 

X 

— 

X 

*• 

•• 

•• 

•— 

m 

— • 

'J 

fG 

1 

1 

1 

i 

1 

1 

X 

X 

mm 

C 

X 

X 

X 

X 

X 

•X 

<a 

X 

X 

f\. 

X 

z 

O' 

mm 

a- 

c 

X 

c 

IN 

« 

7 

c 

Ml 

o 

r 

w 

r\ 

% 

7 

x 

X 

t 

t 

t 

1 

t 

t 

9 

• 

• 

• 

9 

9 

• 

9 

9 

9 

9 

9 

9 

9 

t 

9 

9 

9 

9 

9 

X 

C 

X 

X 

7 

c 

p\ 

c 

c 

\ 

c 

o 

c 

r* 

G 

G 

o 

c 

c 

c 

c 

c 

G 

c 

c 

G 

G 

S» 

G 

X 

z 

X 

G 

G 

X 

C 

X 

m» 

X 

LT 

X 

G 

X 

G 

c 

G 

3 

c 

G 

c 

G 

c 

c 

G 

c 

c 

c 

c 

c 

c 

X 

G 

s» 

c 

► . 

X 

X 

z 

c 

3 

G 

X 

G 

C 

G 

c 

c 

3 

G 

G 

G 

G 

c 

c 

c 

G 

c 

G 

c 

c 

X 

X 

< 

m 

X 

z 

c 

c 

c 

c 

G 

G 

-m 

c 

C 

i* 

G 

c  c  c 

c 

c 

X 

c 

X 

c 

X 

X 

< 

mm 

< 

c 

LT 

o 

o 

X 

X 

z 

r 

7 

X 

r\ 

HP 

X 

fN 

pr 

7 

X 

z 

** 

r- 

X 

X 

o 

o 

O' 

G 

X 

X 

o 

z 

• 

• 

• 

9 

• 

« 

• 

t 

9 

9 

9 

9 

9 

9 

• 

9 

9 

• 

• 

9 

9 

9 

9 

9 

9 

X 

< 

z 

< 

o 

0 

0 

c 

c 

0 

0 

C 

3 

3 

G 

G 

c 

0 

0 

0 

c 

o 

T* 

G 

G 

c 

3 

pM 

X 

X 

1 

i 

* 

1 

1 

T 

1 

1 

1 

1 

1 

1 

1 

1 

TABLE  XII.  (continued) 


48 


Z 

O 


• 

LL 

•4  pm  mm 

*4 

Mi 

*4  mm  mm  mm 

4  *4 

*4  *4  *4 

p4 

444 

*4 

>4 

*4 

*4 

P4 

4  4 

LL 

A 

i  i  i 

i 

1 

iiii 

1  1 

1  1  l 

l 

1  1  1 

l 

1 

1 

1 

1 

1  1 

z 

mm 

4 

x  a  x 

LL 

x 

LL  UJ  lL  LLI 

LL  LL 

LL  IL  U 

UJ 

xxx 

X 

X 

X 

X 

X 

X  X 

o 

o 

X 

Z  Z  eg  z  m 

-  z  0  -  X 

Lf* 

z  e»  x  O' 

—  eg  O 

*  ir*  a* 

• 

a  n,  re 

*4 

Z 

c^-'8infin*? 

0 

z  Z  Z  Z  eg  O 

f\ 

4 

rv  0 

LL 

a. 

X 

Z  Z  eg 

O' 

O 

eg  Z  O  O 

0  z 

0  mi  •* 

Z  e*  e*  x 

re  x  Z  O 

#4 

—  0 

o 

•  •  • 

• 

• 

•  •  •  • 

•  • 

•  •  • 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

• 

•“<  Cv 

mm 

mm 

z  —  z  -< 

<\l  <\ 

4  rv,  re  <\ 

mm  mm  \f\ 

<Nl 

Z  rv  « 

>0  vr  00 

X 

M 

QC 

O  o 

o 

x  o  *  e 

x  0  0 

lt 

O' 

0  0 

i/* 

—  c\ 

mm  (\ 

444 

*4 

mm  mm 

X 

o 

LT 

LL  LL 

LL 

LU  LL 

LL  LL 

UJ  X  X 

X 

X 

X  X 

o 

o 

eg  Z 

z 

o  z  n»  n 

O'  Z  O' 

0  0  X  z 

ct 

o  re 

z 

ft*  t* 

eg  Z 

Z  rv 

re. 

rv 

N 

LL 

LL 

c  z 

IT 

z  z 

Z  re 

O'  N  Z 

re 

X 

Z  eg 

i/l 

* 

o  rv  z  o 

z 

O  0  <\  Z 

Z  Z 

0  0  e 

e 

—  —  — 

0  e 

c 

Z 

X 

mm  mm 

z 

rv 

o 

c 

Q 

• 

>0 

in  4  >0  s 

mm 

Z  s.  e-  x 

z 

O  -H  C 

0 

r-  z 

z 

*4 

0 

X 

UJ 

mm  mi  ^ 

•4 

CM 

•4  W  4  pj 

*4 

PM  <\  <\| 

mm 

*4  4 

eg  eg 

eg 

U 

O 

1! 

i  i  l 

i 

1 

till 

1 

1  1  1 

1 

1  1 

1 

l 

1 

LL 

o 

o 

4 

X  X  LL 

LL 

VL 

LL  X  LL  LL 

X 

UJ  LL  LL 

X 

X  X 

X 

X 

X 

-J 

X 

X 

eg  «  4 

o 

X 

Z  X  X  Z 

f* 

z  Z  c 

mm 

—  z 

Z 

O' 

h* 

x 

• 

O  3  IT 

X 

Z  O'  Z  Z  O 

z 

z  x  0 

mm 

0  z 

3 

mm 

0 

X 

mm 

M  41  X 

IT 

MlT-e 

f\ 

X  re  0  X 

ft*  c 

a 

ft* 

h- 

X 

or 

•  •  • 

• 

• 

•  •  •  • 

•  • 

•  •  • 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

lU 

-4  —  ft* 

mm 

mm 

Z  eg  Z  Z 

z  e 

Z  Z  tv, 

eg  O  eg  — 

■4 

z 

C  O  PM 

0  0 

IT 

X 

z 

J. 

c 

4 

z 

c 

X 

Z 

IT  X  X 

*  IT 

OC  X  X 

X 

O  X  e- 

0 

X  e-  X 

O 

e- 

X 

P* 

rv  X 

f*- 

mm 

■4  »4  X 

*4 

mm  <\  mm  mm  mm 

mm 

4  4  4 

•4 

•4  *4  4 

4 

■4 

•4 

eg  — 

X 

a 

i  i  1 

l 

i 

1  i  1  1 

1 

1  1  1 

1 

1  1  1 

1 

l 

1 

l 

1  1 

UJ 

mm 

X 

ft* 

LL  X  X 

LL 

'X 

X  X  X  X 

LL 

XXX 

X 

X  X  X  X 

LL 

X 

X 

X  X 

X 

c 

o  z 

O'  X  <e 

z 

CNMC 

z 

rv  C  <Nf 

p4 

z 

4 

0  z 

X 

c  o 

3  C  O' 

x 

Z  re  Z  O  — 

0 

jyreZrvzczre 

z 

Z 

x  —  z 

3 

Ol 

o 

mm 

«  IT  iT  J 

^  \  ^ 

r* 

O  Z  rv.  Z  tv  Z  X 

O' 

re 

m* 

X 

z  z 

z 

c 

is. 

•  •  • 

• 

• 

•  •  •  • 

•  • 

•  •  t 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

X 

n 

X  "■ 

eg  it  x 

«  in  re  z  z  x 

0  x 

1—  rn  z 

mrn 

O  x  O  re  c 

•4 

mm 

mm 

z  Z 

LL 

3 

c 

C  -J 

-J 

Z 

• 

X 

-j 

X 

4 

O' 

o  c 

Z  r-  re 

ir 

i r 

x  z  i*.  r» 

0  Z 

z  r»  z  z  «  x  z 

O' 

O' 

Mi 

r- 

z  r* 

c 

x 

o 

mm  mm  mm 

mm 

mm 

p4  *4  *m  mm 

•4  mm 

4  4  4 

mm 

*4  «4  B4 

p4 

*4 

<\ 

b4 

4B  *4 

X 

X 

X 

l  1  i 

i 

l 

iiii 

l  1 

1  1  1 

l 

1  1  1 

1 

1 

1 

1 

1  1 

a. 

•L 

LL 

rv 

iii 

UJ 

x 

X  X  X  X 

X  X 

JU  LL  LL 

X 

XXX 

X 

X 

X 

X 

X  X 

ci 

II 

3 

—  X  O 

o 

mm 

IT  4  IT  c 

0  - 

»  re  0 

re 

O'  X  z 

*4 

r* 

Z 

4 

Z  Z 

4A 

z 

•t  1*  o 

z 

c 

Z  C  Z  X 

z  — 

<»- 

C  ^  ^  \ 

Ml 

eg 

h* 

z  0 

1 

4 

LL 

re  C  C 

o 

mm 

re  ^  ir  — 

z  z 

OX  — 

3 

—  rv  O' 

O' 

rv 

Mi 

z  0 

Or 

o 

•  *  • 

• 

• 

•  •  #  # 

•  • 

•  •  • 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

U*. 

z 

• 

Z  Z  - 

z 

*4 

re  M  X  -i 

z  z 

Z  Z  «■ 

4 

-1  X  - 

et  \fS 

h* 

c 

*4 

ft"  f\i 

mm 

3 

4 

a. 

-J 

or 

X 

O 

X 

eg  r\  (\ 

z 

^ 

z  z 

Z  re  Z 

rr 

4*  N- 

re 

z 

ft* 

Z  z 

or 

LL 

mJ 

LL 

mrn  rnm  mm 

mm 

•4 

bJ  #4  mm  *4 

mm  mm 

*4  «4  4« 

«■ 

*4  4  Ml 

mm 

*4 

*4 

-4 

•4 

mm  mm 

X 

> 

4 

X 

X 

X 

mm 

Ui 

1 

LL' 

am 

11 

111 

1 

X 

1  1  1 
XXX 

1111 

1 

X 

l  l 

X  X 

4 

>• 

X 

o 

IT  IT  N 

0> 

c 

N4-C 

z  0 

Z  re  ^ 

•4 

00  4  N 

eg 

X 

f*4 

Z 

0 

X  re 

X 

3 

• 

N  Z  f. 

z 

rv, 

Z  (\  re  z 

X  0 

S  4  4 

ft* 

re  X  Z 

«fi  fO  0* 

X 

z 

*4  b4 

O 

M 

X 

X 

eg  4  O  re 

X 

COZe. 

X  c 

CC  ft*  0 

O 

O'  Z  X 

X 

X 

ft* 

z 

X 

Z  X 

o 

Z. 

*4 

•  •  • 

• 

• 

•  •It 

«  • 

•  •  • 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

Z 

Z 

w 

Z  tv  «• 

Z 

\f* 

^  4  IT  »4 

•4  4 

-  rv  z 

mm 

00  mm  ft* 

0 

tv  rv 

u* 

#4  f\ 

i/I 

LL 

4 

X 

< 

X 

z 

X 

—  Z  rv 

Z 

r* 

re  z  Z  re 

z  z 

z  z  z 

z  z  z  z 

z 

z  z  z 

z 

IT 

X 

M 

X 

rnm  r4  ^ 

mm 

mm  mm  mrn  tm 

•4  *-B 

•4  4  p4 

4 

•bb  mm  mm 

*m 

#4 

-• 

mm 

»4 

*4  ^ 

o 

O 

1  1  i 

1 

1 

iiii 

1  1 

1  1  1 

1 

l  l  l 

1 

l 

1 

1 

1 

1  1 

X 

X 

M 

c 

XXX 

Uj 

x 

X  X  X  X 

U.  LL 

X  LL  U. 

X 

xxx 

X 

X 

X 

X 

X 

X  X 

4 

X 

LL 

z  c  z 

ft* 

e 

^  X  LfN 

x  re 

X  c  0 

mm  ft)  qc 

z 

h* 

r- 

eg 

h- 

rv  C 

U» 

O 

X 

Z  Z  Z 

o 

o 

O  —  eg  x 

(V  \F 

V  z  0 

z 

—  Z  O' 

lt 

ft* 

4T 

It* 

z 

z  z 

or 

-  c  c 

mm 

o 

O  Z  X  N 

O  re 

Z  r»  re 

f- 

Z  N  e. 

;t* 

X 

0 

Z 

z 

ft*  P4 

LL 

•4 

x 

•  •  • 

• 

• 

•  •  •  • 

•  • 

•  •  • 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

X 

o 

mm  mm 

z 

o 

re  *  4.  «. 

•4  B4 

-  Z  - 

ft* 

X  —  z 

rv 

ft* 

rv 

r* 

eg 

**  ifs 

c 

X 

z 

LL 

c 

X 

a 

• 

LL 

or 

LL 

o  c  c 

o 

o 

e  c  c  c 

c 

c  c  0 

c 

0  e  c 

3 

c 

c 

C 

c  c 

h- 

Lb 

x  Z 

c  o  c 

a 

c 

c  c  0  e 

0 

e  0  c 

e 

c  0  0  c 

c 

c 

3 

f ^ 

r  c 

< 

X 

B4 

zee 

c 

c 

c  0  e  e  0 

0  c  c 

mm, 

c  c  e 

Z 

c 

IT 

C 

IT 

r-  c 

4 

3 

or 

»»# 

x 

z 

z  Z  re  rv. 

mm 

—  rv  re 

z 

Z  Z  N 

X 

X 

O 

O' 

0  c 

o 

O 

z  o 

1  (  1 

• 

• 

•  •  •  • 

•  • 

•  •  • 

• 

•  •  • 

• 

• 

• 

• 

• 

•  • 

*  W!  40  COOOOOOOOOCOOOCOOOCCCCce- 

t  —  I  I  I  I  I  I  I  I  I  I  I  I  I  I 


TOTAL  l.4*4F-Il  1 .0?  7F— I  I  1.9T6E-13  9.BJAE-14  7.982E-15  A  *52F-15  2.5UE-11 


TABLE  XII.  (continued) 


49 


ac 

UJ 


< 

a 

A 


o 

z 


•r 

.r 

>c 


o 

UJ 

X 


ac 

X 

UJ 

C 

> 

i- 

u 

z 

> 

u. 

Ui 

t* 

Hp 

-J 

*■* 

Lb 

X 

m»* 

z 

X 

X 

3. 

H* 

z 

1 

u. 

H* 

X 

e 

mJ 

-j 

\A 

X 

N» 

tl 

< 

QC 

M 

X 

o 

k* 

H* 

sA 

< 

A 

o 

< 

</) 

PM 

m* 

I 

PM 

«■* 

C 

1 

i 

ac 

-*  Up 

Lb 

< 

C  O' 

UJ 

O' 

f 

•* 

* 

X 

•  «  « 

t 

ac 

CI»C 

z 

a 

z 

O 

mJ 

< 

>•  M* 

< 

3 

c 

u. 

a 

< 

« 

b» 

* 

•t. 

—LuZ. 


TABLE  XII.  (continued) 


X 


'N  **  -t  *  r-  tr\ 

^  ^  ^  *m 

I  I  I  I  I  I 

U.  JL  UU  vL  IL  Oi 

if  <  c  ir  i'  <* 

t  ^  J>  N  l/>  O' 

%  -i  O  O'  l\ 

•m  >  O'  (T  IT  IT 

•  t  t  •  •  • 

f»  k*  •*  y  — 


ac  >- 

x  c 

l~  x 


—  <\  (*•  *  IT  < 


SCAirekFIl  1  I  GMT  INTENS1  fY  VERSUS  ANCiLE  ANO  NUMftFk  OF  RFFLECT  IONS  FROM  SURFACE  ONE 


51 


* 

o 

—  <n  <n  i*>  in 

ft* 

-n 

i*1  -t  'f 

(p  (P  4  4 

4  ir  x  i*i  4  X 

pp 

x 

p»*  pd  pP  pP  pP 

pp 

X  X 

M  pJ  pj  p4  pd  pJ  N 

p*  pP  *Pi  p«I 

PP  *P 

pp 

«M  *«P 

mm 

pd 

AJ 

.J 

i  i  i  i  t 

i 

i  i 

i  i  i  i  i  i  i 

i  i  i  i 

1  1 

1 

1  1 

i 

i 

pd 

<  at  ll  ll  uj  u. 

UJ 

U.  UJ 

uj  uj  u.  a.  n  uj  a 

u.  uj  u.  u. 

LL  LL 

X 

U.  IU 

X 

tU 

e 

L-  4  0*  4  4  X  us 

(N  x 

N  «*  X  C  X  X 

If  K  00  If 

—  N 

C 

4  X 

y 

<r 

t 

a 

4<*'XX40i*'  — 

X  I*  ff  If  X  ff  c 

4  X  X  X  N  <7 

N  —  N 

C 

y 

*s 

X 

IT  :-3  N  <\  — 

X  ^ 

ff04fKlN4NK*lf#XO 

—  —  O 

4 

• 

II 

Aw  '  .  N  N  P4 

4 

x  ir 

4  N 

X 

X  X 

X 

•3 

X 

X  7>  7>  0*  X 

0* 

X 

C  X  o 

«ff  J 

X 

<f  & 

y 

A 

•P  0Bd  Pd  X  Pd 

X 

V  p<  \ 

1  1  1 
dL  UJ  UJ 

pd  pd  Pd 

pp 

mmt  mm 

pP 

pp 

c 

IT 

X  X  X  X  X 

LL 

LL 

1  1  1 

UJ  Uj  U. 

1 

X 

1  1 
X  X 

UJ 

1 

X 

o 

x  o  <*  —  c  c 

4 

XKN 

x  9 

7*  O  X  X 

A 

.n  c*  k»  «  4 

X 

4 

x  fs,  x 

^  N  pd 

ft* 

(M  N 

*P 

X 

X 

«>  s  O  i/i  »< 

IP 

* 

O  X  1*1 

X  K-  X 

f*l  X  4  N 

ft* 

X 

• 

t  • 

•  t  •  t 

t  • 

• 

•  • 

• 

• 

0* 

I 

4 
7 

7 

1 

5 

0 

2 

8 

6 

5 

0 

0 

0 

Q 

0 

0 

0 

1 

1 

I 

4 

ao  **< 

pP 

4 

fM 

a 

o 

• 

x 

1/  4  {  {  7  1/ 

f»  f»  ®  X  0—00* 

f*  X  X 

»P 

O 

A 

U. 

*■4 

pd  X 

—  •*  \MV>J 

■IfiIMIM 

KJ 

«■* 

o 

II 

1  1  1  1  1 

1 

l  1 

II  1  1  1  | 

1  1  1 

1 

1 

i 

c 

c 

4 

LL  UJ  X  UJ  UJ 

UJ 

wU  UJ 

£  UJ  UJ  UJ  UJ  UJ 

LL  LL  UJ 

UJ 

X 

UJ 

X 

X 

-  t  «  If  N 

IT 

If  S  4  K  X  X  O  — 

*■*  X  X  O' 

f*p 

X 

• 

C  O  C  IT  3* 

f*  4 

CJ>  4  4  X  O'  m 

0X0 

Pp 

<J> 

4 

pp 

f  i  ?  i  If 

4 

^  X 

•m  rg  ao  it>  O  CC 

flCCfi 

4 

0T 

•  t  •  •  t 

• 

1  • 

•  ••••«# 

t  *  •  t 

•  • 

• 

•  t 

• 

• 

X 

pp  <«d  fA  fA 

tr 

N  iT 

4  4  O  X  X  (M  M 

ON-- 

X  o 

o 

K.  O 

o 

X 

G 

< 

X 

z 

if  if  if  ^  if 

c 

X  f- 

f-OXO>Xh»3»Xf»XO> 

h» 

X 

v  rg 

X 

ft* 

Pd  X  pP  pP  Pd 

n 

x  mm 

H  (\  P  M  H  P  )U 

rd  Pd  H  p 

pp 

^  Ad 

1  1 

pp 

pd 

O 

1  1  1  I  1 

i 

1  1 

1  1  1  1  1  1  1 

I  1  I  1 

l 

1 

1 

i 

X 

ft* 

111  Uj  UJ  UJ  li. 

u. 

U.  UJ 

U.  UJ  UJ  U.  UJ  U.  Uj 

UJ  UJ  U.  UJ 

u 

IU 

UJ  LL 

Uj 

U. 

□ 

2 

IN  <N  O  IT  — 

4<7lT4if. 

<\  O  N  p* 

4 

Pd 

k»  y 

4 

r«j 

o  a 

»  —  X  K-  4  Cf> 

4  C 

\r  <*> 

X 

4 

X  — 

IT 

y 

o 

PP 

KIM  J  »  ^  i 

rr  <v 

»SK(f«MfMf 

P 

X  X 

4 

o 

V) 

• 

•  • 

•  t  •  • 

•  • 

• 

•  • 

• 

• 

X 

Pd 

Ifl  (\  IT  X  IT 

*p 

X4#if  OO-ifif-HtJciO- 

PP 

—  X 

X 

mmk 

G 

-J 

• 

mo 

-J 

c 

c 

w 

it*  »t  **  A  A 

X 

4Xf"^XXK»44 

X  X  X  Of 

<7>  — 

f*  X 

K* 

f*i 

LL 

c 

x  x  pd  x  mm 

X 

pN  p4 

P  P  N  P 

—  N 

Pp  pp 

pp 

X 

i  i  i  i  i 

! 

i  l 

1  1  1  1  1  1  1 

l  l  i  i 

1  1 

1  1 

1 

i 

a. 

AJ 

u  u.  u.  a  u. 

UJ 

a.  uj 

u.  u.  u.  uj  uj  u.  a. 

U.  U.  LL  UJ 

X  X 

X  X 

X 

X 

II 

rj 

x  x  x  x  r 

4 

•>4  ^ 

o  (4  4  g>  I*t  o  (*l 

9>  X  X  — 

p*  ^ 

pp  A 

4 

«t* 

C  4  —  4  C  X 

o  c 

X  X  —  X  T  —  C 

r»»  <SJ  — 

N  l\ 

r*  it 

O 

N 

x 

rf  O  ■ 

tr 

X  c 

—  X  4  O'  X  P*  C 

—  IN  <y  <y 

ft*  fS 

—  4 

y 

»v 

c 

• 

•  • 

•••••ft 

•  •  t  • 

•  • 

• 

•  t 

t 

• 

z 

• 

PP  fA  «  >0  X 

ft* 

p  >t  >t  IT  <0  »p  »p 

—  X  —  4  X  1^ 

C 

—  ft* 

ft* 

< 

at 

o 

N  (NJ  fSJ  4  !** 

rf* 

ft*  ft* 

4  4  4  4  ip  X  (*• 

^  'fl  N 

A  ft* 

X 

i*l  4  X 

pp 

-J 

x 

X  X  X  X  X 

x 

p4  p« 

«d  *  P<  «  M  Pd  Pd 

p  P  p  P 

pp  pp 

p m 

pP  PP 

pP 

pp 

< 

£ 

X 

x 

1  1  1  1  1 
U,  X  a.  LL  X 

i 

Uj 

1  t 
LL  UJ 

1  1  1  1  1  1  t 

UiU-U.UJU.LUUj 

11(1 
LL  X  LL  U  J 

IU  X  ill  li  lL 

1 

X 

1 

X 

X 

C  IT  X  4  4 

pt 

K  X  f  4  *  J  « 

X  —  K.  (\ 

X  K. 

X 

J>  X 

ft' 

C 

3 

• 

IT  3>  X  —  N 

a 

'VI  ft* 

lA  00  ^  (A 

fA  GO  ffi  -C 

<f* 

X 

4  — 

*p 

pp 

a: 

X 

If  4CK^ 

c 

C't^XOflOft*^^ 

7  X  X  X 

x  **• 

4 

X  4 

X 

fM 

♦V 

II 

^  p4  S  p4 

X 

P^  lA 

>J  H  M  K  4 

x  —  ro  i\ 

^  N 

A  — 

< 

X 

X 

—  4  I\  4  <■* 

ft* 

44i*'/'4XiT44 

4  4  4  4 

4  4 

A 

4  4  X 

pp 

X 

X  m%  mm  X  X 

x 

Pt  «p 

PP  PP  PP  PP 

mrn 

mm  pP 

pP 

mrn 

w 

i  i  i  i  i 

i 

1  1 

1  1  1  1  1  1  1 

1  1  1  1 

1  1 

1 

1  1 

i 

1 

p* 

O 

LL  LL  LL  LL  LL 

U. 

LL  LL 

U.  UJ  U.  U.  U.  IU  UJ 

IU  Uj  U.  U. 

U.  IU 

X 

X  X 

X 

X 

X 

a  20  C  ft*  O  ft* 

ft)  o 

X  X  IP  X  c  O  X 

—  I*"  X  X 

n»  r*» 

f\ 

r*»  r\ 

A 

X 

1*1  1*1  X  If  O' 

3> 

—  IT 

X  l\  X  <\  4  3*  4 

—  X  7“  X 

ft*  A 

ft* 

4  X 

X 

4 

»■  —  C  —  71 

C 

X  X 

N  G  (A  •£  N  fO  N 

A  N  N  ft* 

X  X 

4 

<£  ft* 

•  t 

pp 

IN 

UJ 

• 

•  « 

•  •  •  • 

•  • 

• 

• 

f 

C 

X 

—  —  —  t r  y 

ft* 

4  4 

"U  M  x  "U  P 

CC  -p  IA  f\ 

ft*  fV 

f\  ft* 

A 

«■* 

a 

or 

x 

O  O  G  O  O 

c 

c  n 

c  c  o  g  e  c 

C  C  O  C 

c  o 

C 

o  o 

2 

£ 

z 

G  O  C  O  C 

c 

C  C 

CO  O  G  O  C 

C  C  o  c 

O  C 

o 

c  x 

o 

-J 

M 

IfOCCC 

c 

C  O 

CO  coco 

c  a  o  x 

O  X 

O  X  K* 

C 

4 

z  c 
<  a 

J  »*K< 

IT 

4  IP 

fM  pu  -*  fM  (*<  4 

x  X  r»  r» 

X  X 

y  y 

X 

dccedc 

e' d  c  d  c  o  e'  o  c' 

6  6  6  6  6  6 

a  c  o 

pp 

C 

X 

Pp 

1  1  1  1 

i  i  i  i 

1  1 

i 

i  i 

1 

t 

mmi. 


TABLE  XII.  (continued) 


52 


IT 

U* 

•C 


X 

XI 

-m 

X 

c 

X 

a 

i 

ai 


1 

1/) 

or 

ai 

a. 

> 

►» 

4 

mm 

or 

u 

or 

2 

"m 

w 

z 

u- 

1 

l/l 

Ik 

»-* 

u- 

</) 

2 

< 

z 

•m 

** 

fS 

X 

»-* 

• 

u 

a 

fS 

X 

X 

Ok 

4 

o 

ac 

X 

I/! 

a 

X 

at 

T 

< 

2 

X 

X 

O 

X 

c 

H» 

u 

4 

a 

u. 

mm 

X 

i- 

a 

X 

UJ 

4 

O 

at 

e 

53 


funtion  of  the  region  of  scatter  and  page  9  ;ives  the  reflected  intensity 
as  a  function  of  the  order  of  reflection  from  the  ground  surface.  Page  10 
of  Table  XII  gives  the  scattered  intensity  summed  over  all  azimuthal  angles 
as  a  function  of  polar  angle  and  order  of  reflection.  Lastly,  page  11 
gives  the  direct  intensity  at  the  receiver  position. 

5.2  LITE-II  Sample  Problem 

A  sample  problem  for  the  LITE-II  code  was  designed  to  calculate  the 
scattered  light  intensity  one  kilometer  above  the  ground  surface  due  to  a 
plane  parallel  0.5  micron  wave  length  light  source  incident  at  30°  from 
the  normal  to  the  top  of  the  atmosphere.  Elterman's  (Ref.  4)  clear  stan¬ 
dard  atmosphere  model  for  0.5  micron  wave  length  light  was  used  to  define 
the  variation  of  the  aerosol,  ozone,  Rayleigh  and  extinction  coefficients 
with  altitude.  The  aerosol  phase  function  used  in  the  sample  problem  was 
obtained  from  the  calculations  reported  in  Ret .  3  for  the  "Haze  C"  aerosol 
size  distribution.  The  ground  was  assumed  to  be  a  Lambert  type  surface 
reflecting  light  with  an  albedo  of  0.9. 

5.2.1  Input  for  LITE-II  Sample  Problem 

Table  XIII  lists  the  input  data  for  the  LITE-II  sample  problem.  The 
input  is  for  the  FORTRAN-IV  version  rather  than  for  the  ALGOL  version. 

The  only  difference  in  the  input  for  the  two  versions  is  that  che  ALGOL 
version  requires  that  the  @  symbol  preceed  the  exponent  of  those  numbers 
input  with  the  E  format.  The  information  appearing  in  columns  66  through 
80  of  each  card  is  not  read  by  the  program  but  is  given  as  an  aid  in 
identifying  the  problem  deck.  The  atmosphere  is  divided  into  laterally 
infinite  slab  regions  bounded  on  the  top  by  planes  at  2,  4,  10,  20,  30, 
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40  and  50  kilometers.  The  printout  of  the  scattered  intensity  versus 
region  of  scatter  for  each  receiver  position  will  determine  those  areas 
of  the  atmosphere  which  contribute  most  significantly  to  the  scattered 
intensity  at  the  various  altitudes. 

5.2.2.  Output  for  LITE-II  Sample  Problem 

The  output  for  the  LITE-11  sample  problem  is  given  in  Table  XIV. 

The  first  two  pages  give  the  scattered  light  intensity  at  the  receiver 
as  a  function  of  the  order  of  collision  for  each  of  the  two  groups  of 
25  histories  run.  The  third  page  gives  the  average  of  the  results  of 
the  two  groups  and  the  fourth  page  gives  the  deviation  of  the  group  re¬ 
sults  about  the  average  results.  The  fifth  page  of  Table  XIV  lists  the 
number  of  histories  terminated  by  each  of  the  possible  history  termination 
processes  and  also  the  total  number  of  collisions  that  occurred,  The 
sixth  page  of  Table  XIV  gives  the  scattered  intensity  at  the  receiver  as 
a  function  of  the  angle  measured  from  the  normal  to  the  receiver  plane 
and  as  a  function  of  the  order  of  reflection  from  the  ground  surface. 

The  seventh  page  of  Table  XIV  gives  the  scattered  light  intensity  as  a 
function  of  the  region  of  scatter  and  page  eight  shows  the  amount  of  light 
reflected  from  the  ground  surface  to  the  receiver  plane  for  each  order  of 
reflection.  Lastly,  the  direct  intensity  at  the  receiver  is  given  on 


page  nine  of  Table  XIV. 


TABLE  XIV.  Printout  for  LITE-II  Sample  Problem 
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VI.  ACC  CODE  UTILIZATION  INSTRUCTIONS 

The  ACC  code  has  been  written  in  ALGOL  for  the  Burroughs  B-5500  and 
FORTRAN- IV  for  other  computers.  This  section  includes  the  input  data 
formats  for  the  ALGOL  version  of  the  program.  The  input  data  formats  for 
the  FORTRAN-IV  version  are  different  from  those  in  the  ALGOL  version, 
only  in  that  the  format  for  floating  point  numbers  have  an  E  preceding 
the  exponent,  rather  than  an  @  symbol.  The  punched  output  from  the  LITE 
programs  will  actually  compose  a  large  portion  of  the  input  for  the  ACC. 
However,  if  punched  output  from  the  LITE  programs  is  not  available,  the 
data  may  be  punched  on  cards  in  the  format  given  in  Table  XV. 

6.1  ACC  Input  Data  Format 

The  input  data  format  for  the  ACC  input  is  shown  in  Table  XV.  The 
format  in  Table  XV  is  for  the  first  problem  to  be  loaded  on  the  computer. 
If  more  than  one  problem  is  to  bt  run  at  a  time,  then  the  first  card 
should  be  omitted  from  all  but  the  first  problem,  and  the  problems  loaded 
one  behind  the  other.  The  values  for  CTHETA(I)  and  F(I,J)  are  those 
given  by  the  LITE  codes  and  are  in  the  proper  format  for  input  in  the  ACC. 

TABLE  XV 
ACC  Input  Data 

Input 

Card  Format  Item _ Definition _ Limit 

1  16  NPROB*  Number  of  problems  (The  scattered  inten¬ 

sities  as  a  function  of  polar  angle  and 
order  of  reflection  for  a  given  azimuthal 
interval  constitutes  one  problem  for  the 
ACC.) 

2  16  IPROB  Problem  number  assigned  to  identify 

printed  output 
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TABLE  XV.  (continued) 

Input 

Card  Format  Item  Definition  Limit 

3  16  NCUR  Option  for  determining  reference  plane  for 

light  -rurrent  calculations. 

NCUR*1  Intensity  but  no  currant  given 
NCUR*2  Intensity  plus  current  given  for 
plane  normal  to  polar  axis 
NCUR-3  Intensity  plus  current  given  for 
plane  normal  to  0  azimuthal  axis 
NCUR“4  Intensity  plus  current  given  for 
plane  parallel  to  polar  and  zero 
azimuthal  axes. 

4  316  NANGLS  Number  of  cosine  bounds  bounding  the  polar 

angle  intervals  for  which  intensities  from 
the  LITE  codes  are  recorded. 

NRFLT  Number  of  reflection  orders  for  which  the 
LITE  code  gives  the  scattered  light  inten¬ 
sity.  (This  number  includes  the  zeroth  re¬ 
flection  order.) 

NNALB  Number  of  new  albedo  values  for  which  out¬ 
put  is  desired. 

5  3R10.4  HSORS  Source  height 

HD  Detector  height 

RD  Radial  position  of  detector 

6  7R8.4  ALB(K)  New  albedo  values  for  which  intensity  or  K=l> 

current  is  to  be  defined  NNALB 

Follows  3R8.4  OALB  Albedo  value  at  which  output  from  LITE 

last  code  is  defined  (old  albedo) 

ALB(K)  card 

ABC  If  NCUR-1,  ABC  arbitrary 

If  NCUR*2,  ABC  arbitrary 
If  NCUR=3,  ABC  is  the  absolute  value  of 
the  cosine  of  the  midpoint  of 
the  azimuthal  angle  interval  for 
which  the  LITE  intensity  is  given. 

If  NCUR-4,  ABC  is  the  sine  of  the  midpoint  of 
the  azimuthal  angle  interval  for 
which  the  LITE  intensity  is  given. 
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TABLE  XV.  (continued) 


Card 

Format 

Input 

Item 

Definition 

Limit 

STER 

Width  of  azimuthal  interval  for  which 
intensities  are  given  (radians) 

Follows 

OALB 

card 

7R8.4 

CTHETA(I) 

Cosines  of  the  upper  bounds  of  the  polar 
angle  intervals  used  to  define  the  polar 
angular  distribution  of  the  LITE  code 
intensities  (descending  order) 

>1, 

NANGLS 

Follows  6E11.4 
last 

CTHETA(I) 

card 

F(I» J) 

LITE  cede  intensities  given  as  a  func¬ 
tion  of  polar  angle  and  order  of  rejec¬ 
tion.  I  varies  most  rapidly.  (First 
value  for  each  polar  angle  interval  be¬ 
gins  on  a  new  card.) 

1*1 1 
NREFLT 

J-l» 

NANGLS 

*  If  more  than  one  problem  is  to  be  run,  the  card  containing  NPROB  should 
be  omitted  in  all  but  the  first. 


70 


> 


VII.  ACC  SAMPLE  PROBLEM 

The  sample  problem  for  ACC  Is  designed  to  convert  the.  scattered  light 
Intensity  calculated  with  the  LITE-I  code  for  a  0.9  ground  albedo  to  data 
/or  albedos  of  0.1,  0.2,  0.3,  0.4,  0.5,  0.6,  0.7,  0.8,  0.9  and  10.  In  addition 
to  calculating  the  scattered  intensities  for  the  new  albedos,  the  scattered 
current  across  a  plane  normal  to  the  polar  print  axi3  is  also  to  be  cal¬ 
culated.  The  polar  axis  is  the  line  joining  the  source  and  receiver  point 
and  since  the  source  and  receiver  are  at  the  same  altitude,  the  polar  axis 
is  parallel  with  the  ground  surface. 

7.1  Input  for  ACC  Sample  Problem 

The  input  for  the  ACC  sample  problem  is  shown  in  Table  XVI.  The  prob¬ 
lem  is  the  ill- et  of  106  problems  that  are  to  be  run  as  a  group  and  the 
number  of  this  first  problem  is  40107.  The  first  eight  cards  in  Table  XVI 
were  keypunched  from  Information  supplied  on  keypunch  data  sheets.  The 
remainder  of  the  cards  are  the  punched  output  from  a  problem  run  with 
LITE-I.  Only  those  angular  intensities  from  0C  to  90°  are  used  as  input 
for  the  ACC  sample  problem;  the  cosines  -0.1000  and  -0.2000  are  not  read 
into  memory  Note  also  that  the  cosines  listed  are  the  polar  angle  bounds 
so  that  the  12  values  of  the  cosine  from  1.0000  to  0.0000  are  the  bounds 
for  the  11  polar  angle  intervals  for  which  intensities  are  given. 

7.2  Output  for  ACC  Sample  Problem 

Table  XVII  shows  the  output  for  the  ACC  sample  problem.  The  first 
two  pages  give  the  polar  angular  distribution  of  the  scattered  intensity 
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TABLE  XVI.  ACC  SAMPLE  PROBLEM  INPUT  DATA 
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TABLE  XVII.  Cent. 


RADIATION  RESEARCH  ASSCCImT7!  paTCo  fgOIOEM  _ 9  0107 _ ' 

SCATTERED  CT5h7  I  NTtNS  I  T  Y  VtH  S>Ui>  ANGLE  AND  ALBEDu  * 

SOURCE  HEIGHT  =  l.OOOE  01  OEtECfQR  "COORDlNA  T  E  S _ HiJ=  1.QQQE  G1  RD=  l.OOOE  01 

ANGIE _ _ _ ALfcE!l'.'~  _ _ _ 

(COSINE)  0.9000  ~  0.9000  1.0000  _  _ _ 


0,9000  6.3996E-05  B.391K-05  8.9900E-05 

0.90 00  3. 7963E-05  7,9390 t-05  9.0803E-05 

O.aOOO  3.7396E-05  3,97971-05  » .2332E-05 
0.7000  9  .  397  IE-05  9.8073t-35  5.2289E-05 

0.6000  9.9657E-05  9.9206t-05  5.3832E-05 

0.5000  a. 3606E-05  9,763at-05  5.17d9i-u5 
0.9000  3.6961E-05  9.0502E-05  9.9665E-05 

0.3000  3.2329E-05  '3.6205E-05  9.Q216E-05 

0.2000'  2 .9568E-05  2.7353L-05  3.0250E-05 
0.1000  2. 629 9E-05  2.9506E-05  3.2659E-05 

2.5558t”05  2.8732E-05  3.2029E-05 


TABLE  XVII.  Cont. 
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HBHIg'H 

2.6148E-05 

■iMiW 

iwinumi 

iruwtnotii 

iSiino.w 

immnH 

immoa 

57^5  GTT 

iatt4.73gffl 

MtaM-wtai 

WWMg'H 

imH'ig'H 

ggmaSijl 

HLTIIsU&H 

KULHStU 

mmcn 

KWlTm-M 

ibmi-hm*! 

nuuaasaaa 

khihibm 

m-jitHS'H 

ntnnna 

imaisti 

IPl’lHg’H 

rmatan 

Hxaawttn 

HRgHflSg 

07 

wnami 

■orajqjl 

TOT  AX 

IHIVHCH 

imj-Tign 

m-Lifig'n 

iP'lT-UCLl 

■  WtrTlC'Ll 

IIWWMfl 
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TABLE  XVII.  Coht , 


I.AU I A T  Ir>N 

1  KESEAHCH 

A 5 SCC I  A!  f  S  ' 

|>ACC«  PROULEH  90107 

SCATTERED 

light  current  (nor.  PLANE)  VERSUS  angle  anc  ALBEDO 

SOURCE  HC1GHT  S  1.00HE  01  DETECTOR  COORDINATES  1.000E  01  RD=  1.000E  01 

ANGLE 

albedo 

•COSINE ) 

o.Aooo 

0.9  Juo 

1 .0000 

0.9500 

3.136CE-05 

9.181 3E -35 

6.2290E-05 

0.9000 

3 . 51 l$£-05 

7.63995-05 

3.7793L-05 

0.8000 

3.1799E-C5 

3.3827E-05 

3.5982E-03 

0.7000 

3 .2978E-05 

3.60555-05 

3*921 7E-05 

0.6000 

7790271-05 

3. 1989)' -  05 

3.5023E-05 

0.5000 

Z  739*9  E-07 

/> .  62  0  1 5 -08 

2.898lt-05 

0 . 9000 

1 .69O7E-05 

1.82265-05' 

2.0099E-05 

0.3000 

1  •  1 313E-0li 

1 .26)2t-J5 

1.907bfi-0S 

0.2000 

0 . 1919E-06 

S.8383E-06 

7.5626E-04 

o.iooo 

3.9990E-O6 

9*92615-06 

9.923dt-06 

0. 

1 .2779E-06 

j .93655-06 

1  .bOl2t-06 

TOTAL 

1 . 35125-09 

1.95005-09 

1.5619E-09 
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for  each  of  the  ground  albedos.  These  intensities  are  the  intensity  per 
unit  solid  angle.  On  the  last  two  pages  the  polar  angular  distribution 
of  the  current  across  a  plane  normal  to  the  polar  axis  is  given  for  each 
of  the  albedos. 
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VIII.  PROGRAM  DESCRIPTIONS 


Both  of  the  LITE  codes  are  divided  Into  several  subroutines  which  are 
designated  as  procedures  in  the  ALGOL  language.  The  ACC  is  composed  of  a 
single  procedure.  The  ALGOL  programs  are  compiled  each  time  they  are  loaded 
on  the  computer  and  no  object  decks  are  produced.  The  ALGOL  language  re¬ 
quires  that  any  procedure  called  by  another  procedure  be  loaded  before  the 
calling  procedure.  For  this  reason  the  procedures  used  in  LITE-I  and 
LITE-II  are  listed  in  the  following  sections  in  reverse  order  with  respect 
to  the  order  they  are  executed  at  run  time.  LITE-I  and  LITE-II  are  each 
composed  of  a  set  of  procedures  that  have  the  same  names.  Although  proce¬ 
dures  with  the  same  name  in  the  two  codes  are  similar  and  perform  the  same 
function,  they  may  not  be  interchangeable.  The  following  is  a  listing  of 
the  procedures  used  in  the  LITE  codes  and  a  one-sentence  description  of 
each  procedure. 

Procedures  Used  in  the  LITE-I  and  LITE-II  codes 


Procedure 


Purpose 


MAIN 

SFMAIN 

SRCHECK 

SRDBEAM 

SRSCTANG 

SRREFLCT 

SRINITIAL 

SRPATHL 


Reads  in  the  li.^  it  data 

Controls  the  flow  of  the  problem  on  the  machine 

Checks  input  data 

Calculates  direct  intensities 

Calculates  scattering  and  direction  after  collision 

Calculates  new  direction  after  a  reflection 

Initializes  parameters  used  in  accumulating  the 
scattered  intensities 

Generates  random  path  lengths  between  collisions 
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Procedure 

Purpose 

SRANGLE 

Selects  source  angles  from  input  distribution 

SRAVRAGE 

Calculates  and  prints  average  scattered  intensities 
as  a  function  of  collision  number  and  receiver  posi¬ 
tion  over  each  deviation  group 

SRANSWER 

Calculates  and  prints  the  average  scattered  Intensities 
as  a  function  of  receiver  position,  receiver  angle, 
and  order  of  reflection  over  all  histories 

SRDETECT 

Calculates  scattered  intensities  at  receiver  points 
from  each  collision  point 

SRDIFSCA* 

Calculates  the  probability  of  a  photon  scattering  into 
a  direction  so  as  to  be  headed  toward  the  receiver 
from  each  collision  point  and  reflection  surface 

SRDSTBD 

Calculates  the  distance  along  particles  direction  to 
boundary  of  region  containing  collision 

SRSEARCH 

Locates  region  containing  the  particles  position 
coordinates  for  each  collision 

SRRANDA 

Generates  random  numbers  used  in  the  sampling  processes 

*  This  procedure  is  used  only  in  LITE-I. 


8. 1  ALGOL  Listings  for  LITE-I 

The  following  is  the  ALGOL  listing  of  LITE-I.  Cards  00000050  through 
00043000  were  furnished  by  the  computing  center  at  Fort  Monmouth.  Their 
purpose  is  to  define  the  input-output  files  and  to  provide  some  of  the 
basic  functions  such  as  tangent,  exponential  and  etc. 


79 


begin  Mil  Our  pmint  «  <?» I5l» integer  xBA79.'miMu.f  70vi»ianja.ukv«m,iina  oonoooso  oooo 

SIAM  Of  SIgMINT  *•••**••••  OOO? 

Nl.LJl  nu.GCPOVflNtf.GCB  ANNA)  7ULA.0NCCL  (0  ll?llfOBMAT  MMfBK  t*TI»t  ON  00000060  0005 

ST  AM  nf  SfGMlNl  . .  00(1) 

M»i«WiI?i«IiA],*  I  9".A?)  .CMf.UH  1  "TIME  Off  " » I  * . X 10 ."PROt .  TIME  a*.!!  OOOIlOOfo  0007 

0."  SfCS".»?P»"l/0  T  |  H  p  •"«)|0»"  S£f  S" ) 1  off  I NE  «L?*T  «tJL|)U  *1  2UVC  UtV  ?  00000060  0007 

OOI'J  IS  00?H  LUNG*  NEXT  SI  f,  00(1? 

16000K.CPIIV  »f/llvc  *<nr.  ?16UU0  /1600  111  m  7|«L*  I*)B|Th  0,  )I*5V,9».  |?U»  00000090  00U7 

Stam  nr  siiiMLNi  «•«**••••*  ooo* 

|S1,lRt,?|?,?«i.?7),)0*  ,3)4,)46)ril  L  ONCCI  (•  I  H  1 1  H  0,«JAN**"f  l»»,"MA(l"*  00000100  0009 

ooo*  is  oon  long»  next  Sir,  oco? 

STAhT  of  SEGMENT  . .  ooos 

"APB".  “HAY",  *JUN«, .  jut*,  "AUG",  "SEP*.  "I1CT",  *N(IV*  ,  "Of  C  *  If  70V  C  *T  I  ME  l|)»L»  000001  10  0010 

0005  |S  001 1  LONG.  NEXT  SIG  OOO? 

NJA  ,UME  |  ?))0KV0K  »T1mE  (DIVVUMU  »T1ME  (O)llf  (  1 0«  VVUMU  .  1 1  Bl  6 )»  *  VlUtu  ,  OOOOOIJO  001? 

r?*i6))Mnn  «  *0  then  rnn  x"*?u  ,?  step  i  until  i?  ou  71klai  xRa?«i.?i«lai  ooo-jodo  ooit 

X  MA70 1  ♦  I  lOBANl  *100  «VVUNU  ,  T  )0  1*1*10  «wtMU  ,1)5  l*I*»»U»U  .14?  IA)IX  00000140  00?l 

BA20  MIbMILE  OMANI  >7|MLA  lXM*7«Ion  XP  A  70  *XMA70  »!)OMANI  (OMAN)  -/JALA  00000150  00?V 

IXRA70  ■ 1  1 1 PL7 A T I  MM  I T l  lPNINTIPAGfliMHrRK. 1 00«L JL OU * GCP09 . MMANI, 0- CfLI*  OOOOClaO  0033 

RA/O  ]  .VVUMU, |  1 14 »  1  ?1  ))  000001  70  00*9 

Ml<i|N  00001000  0055 

TILE  CAPO  l?,inlJ  0000?000  0055 

STAhT  Df  SEGMENT  •••••*••*.  OOOA 

flLl  IN  CAPOS  (7,10)1  0000)000  0005 

ABM  A  T  CCLN0I0I9II  0000)010  0010 

LAMIL  117,  L?7  f  0000)070  001? 

L 1 7 1  Bl  AO  (CABOS.  10.  CtlNBl  •  I  )U  771  J  00003030  001? 

MM  If  (CABO  .  10.  CLLNOI * )) I  0000)040  OOl  6 

OU  TO  LI?  1  0000)050  00?0 

L??l  BImINO  1 C  ABO  1  J  LLIISf  ICABOS.  BELfASE)  »  00003060  00?? 

Bl  0 1 N  0000)500  0025 


SAVE  lllf  HUT  PUNCH  (?.  10.  SAVE  ?0)  I 


0000*000 


00?5 
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5t»HT 

nr  51  GHENT  *1 

rue 

xxxxxx  2(2* |5)  1 

00005000 

0001 

rue 

T4PC1  2( 2# 15  )  J 

00006000 

0010 

rm 

T4P£2  2(2* 1 S ) 1 

00007000 

OOli 

f  in 

T*Pf3  2(2*15)1 

0000*000 

oo?o 

r  lie 

T  4  Pf  4  ?(2*15)| 

00009000 

0025 

rut 

T4HE5  2(2*15)1 

00010000 

00J0 

rut 

T4PE6  2(2*15)1 

0001 1000 

0031 

*  HI 

T4Pt*7  ?(?*15)l 

00012000 

0040 

»  JU 

T4PF6  2(2*15)1 

0001)000 

oo»i 

rue 

T  4  P  £  9  2(7*15)1 

00014000 

0050 

rm 

T«PflO  ?(2.|!nl 

00015000 

0011 

f  in 

iif'ni  7(2.i5)i 

00016000 

0060 

'in 

T4HF12  2(2*15)1 

oooirooo 

OOGi 

lit 

T4ITIJ  2(2*15)1 

00016000 

00  TO 

r  i  » 

1  4 y F 1 4  2(2*15)1 

00019000 

00T1 

F  lit 

T4HM5  7(2*15)1 

00020000 

ooeo 

rue 

T4PF16  7(2*15)1 

00021000 

00*1 

s»lTrc  r1(r  r lutoxiiKi  I  *Pl  1  •  T »Pt 2. T ml. T»Pf«. t.* 

■>f5.T»P[6.T»Pir, 

00022000 

00»0 

T4pr *  ,  T4RF9f  Ul»r.  10»T*PFI1  * 

t«pci?.t«pt  i  j.T»Pri».T»Ptis. 

T4PU6) 

00023000 

0102 

LiHK  MMSI 

00024000 

0113 

»l  M 

ibhit  r>»! »t oim.oiii  i ii 

Cn»«t  NT 

USI0  i*  1 TH  UAT*  ST4  TtMtNTS  0 MM 

00025000 

0|I3 

Rl  *1 

O.iprI  INTff.fp  Kl 

00026000 

0111 

f  1  iH T  r  ( //////"STf|P  /  PMlM. 

•»0 •  "*  T5) * 

05Tl<25ftii)l 

00027000 

0  J 1 1 

ST*  hT 

or  StGMCNT  «i 

000b 

IS  0017  LONG* 

NffXT  ! 

HI  *1 

pRuernuRt  Int<»ogi >> 

V»nif 

4  R(«  1  1 

Of*l 

4NG|  1 

00026000 

01  ll 

|XT»SIG*(  1HGI  )it«T!  t  M(  »»»<  »*GI  ))l 

00029000 

0131 

HI  *L 

pond  Oust  I  »nm<  »xr,i  )| 

V  4 1  (Iff 

4RM  J 

4NGD 

000)0000 

0|7) 

T4*M*(  (Q*r*K(  4Hf,1  *2)  )-|  )/(«♦!  )l 

00031000 

0123 

«t‘t 

p«ucii>u»i  »*"ur)i  v»iut 

4RG1 ,4HG2) 

RF*L 

4NG| *4RG2) 

000 12000 

0|  30 

-4**1F  4«r,1i*H(i?  TMfN  4-11,1 

MSI  ART, 21 

0003)000 

0130 

ooo  r 


OOOP 
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HMt  PRUCEOURE  *1N(ARG1 .ARU*)  J 

VALUE 

ARG1.ARG?) 

real  ANG1.ARG** 

OOOiAOOO 

C 1  35 

M:N»ir  »r5IS»rg?  then  in i>t  use  man 

00035000 

01  35 

NML  PRUCtOuHt  l»l«(ARGl#ARl»/)l 

value 

A  H  G 1  #  A  R  o  ?  1 

real  AHGl.AfiG^J 

00036000 

01  AU 

D!M*MA*CARf»l-AR02.0)l 

00037000 

0  1  A  0 

REAL  PROCEOUHE  1  Si GNC A RG 1 . AnG? > I 

V  a  L  UE 

ARGl .ArG?I 

REAL  ArGI.ARU?! 

000*8000 

Ol  A  A 

TSir,N»STGN(AHG?)«ABS(ARl»l)| 

00039000 

01  AA 

REAL  PRUCinURi  LnG(ARGl)l 

value 

ARGl  | 

RE  A|  AKG1) 

00040000 

0 1  A  V 

L0G»LN( ARGl )/?,30?56509<'V»j 

000 A  1 000 

0  l  A  9 

pHuerutinr  errurcarm)} 

VALUE 

ARG1I 

REAL  AhGlf 

ooo«?ooo 

0155 

he. (>  1 N  WH  TTC(P«  IM.F.  aRGI  >»  Gl)  IP 

riRis 

rNo* 

000  A  3000 

Oi55 

RIAL  array 

19000 

0165 

AWC(OI?Oti 

?oooc 

0165 

svtflhxio* to#  o  *  a  u  j  # 

21000 

0  1 66 

$vfiux(oi?s»o*io.o*auj. 

22000 

0 1  7C 

5VOlFC0S(O*5O.O* 10  ]# 

2  3000 

0 1  7  3 

SVPDCOS  [0150.0*10  ]# 

2A00O 

0175 

SVPHANfi  (0150.01 10  )• 

25000 

0177 

SVAM.UX  1 0 1  ?5 . 0  *  1 0  1# 

?600n 

0 1  7  V 

SVPtlR  (0137.015  ]# 

27000 

0182 

SVRfANG  [0137.0*5  1# 

2*000 

018A 

SVSAFLU*(0*?5.0*  101# 

29000 

0186 

SVSOFLUMO  125.0*10  1# 

300C0 

0186 

SVFLUl)  (05100.0*10  1  . 

0191 

SVRFl COS(OI5ft.O* 10  ]. 

32000 

0193 

SVA  [0*10  1. 

33000 

0195 

SVCANC.  (0137  1# 

3A000 

0197 

SVEMP  [01100]. 

019V 

SVFLIIR  [0*10  1# 

36000 

020| 

SVC  IRA  [0130  1. 

0203 

SVFFLUX  [0*10  1. 

38000 

0205 

SVAL«El)0(0*5  1# 

39000 

0207 

svcorE  10 1 100 1  # 

0?0V 

* 
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SVflVflUM  01  1ft  )$ 

A  1  OOC 

0211 

SVHO  C  0  » t  o  1# 

42000 

021) 

$ v p a g  too?  i# 

4)000 

021) 

svnavlei totin  i* 

•4  coo 

021? 

SVSANG  (C|9A0)» 

Abcco 

021* 

SVSTFLO* ( 0  a  10  1# 

44000 

0221 

sv«r  ight  t  oi  ^>oo5 . 

47000 

022) 

SVDPFLU* tCl 10  1* 

48000 

022) 

SvPFANG  (0.^0  1* 

49000 

022/ 

SVHAG  t  0 1  JF  1, 

90000 

02»* 

SVPHFlT  (Ol9ft  If 

9100ft 

02)1 

S  l  0 1 1 0  If 

92000 

02)) 

SVRflUX  ( 01 1ft  If 

9)000 

02)) 

SVROtOl ?9f  0* 1 0  1 » 

0931 

02)/ 

SVSl'iNOTCOMO  !• 

94000 

02)» 

SVSUMKHUtOlbft  If 

99000 

02*1 

SVCRATlil  (  0 1 1  0  1  f 

94000 

024) 

SVHVtOI 100). 

97000 

02*) 

s w t a « - ( o i  moif 

98000 

02*/ 

SVbCATRJOHOOlf 

99000 

02*V 

^VRAYkJ  01 1001f 

40000 

02)1 

S  V  T  AUND ( 0 1 1 0  1  f 

41000 

02)1 

SVHOO [ 01 1  Of  0  1 10)  f 

02)) 

svca/acoi90)  f 

02)0 

svA/ucni  io )  f 

02*0 

SvS A/ A ( 0 1 3  7 1  . 

0202 

SvP*/*tOl3M  f 

020* 

SVCCA/Afftl^ftl  , 

0200 

sv^cmnu  # 

0200 

svomss  roiio  ji 

4?000 

02/0 

(MfMR  AktfAV 

43000 

02/1 

S  V  1  R  C  0 1 4  .01 lOOIf 

02/1 
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SVJPR  C  0  I  *  >01  t001> 
SVNRF  BC  0  I  I OO ) > 
SVlIRltlOHOJ. 
SVJREFlt(OI5  )> 
SVNOFCOS1 01 10  )• 
SVNREG  ( 0 1  1 00 1 > 
SVINCOl  (OI?S  )» 

SVMA  T  (01  1007. 

SVNB  ((11(00), 
SVRPHANG(OI 10  J. 

SVnRF  A  rG l 0  I  5  ]. 

SVRRtCO  (011001. 

svitypt  ( o i i oo i . 

S V  MA  TERL( 0 1 10  ). 
SVNROUNOCOllOOl. 
SVNPMID  (01(0  J» 
NRFSEOlb). 

$ VNOET (01 101  . 

sviiRirtoisoi  . 

SVNRFCOMOIJ  )» 


JAEPMA  . 

JUFT* 

JBRAC  # 

JCniPHI 

jcntHi  . 

Jem*? 

JCPA  • 

JCPHI 

JCPH)?  . 

JCFHIO 

JCPRPO  * 

JCPt 

JCSANG  , 

JCTEP 

joeita  # 

JOEOM 

JO!  Sit  . 

JOLONG 

JDUM  , 

JOT 

JCUM  . 

J  PI 

JFNPA  , 

jfnra 

JH1  . 

JM? 

JHS  t 

JH! 

JP*G 

JPL  . 

JP5CAT 

JR  9 

JR1 

JRCEe  . 

JRFSUIT 

JRMO  9 

JRHUT 

JRROP  . 

JR«t>SQ 

JRT  # 

JSntPHl 

0?  7* 

0276 

0276 

64000 

0?60 

67  000 

0262 

020« 

69000 

0?66 

0266 

0290 

7?000 

0292 

7)000 

0296 

0296 

0296 

76000 

0300 

0302 

7ROOO 

0306 

79000 

0  3  06 

0306 

0310 

60000 

031? 

61000 

031* 

JCOTM  , 

62000 

SJM 

J  C  P  1 1  * 

65000 

031* 

JCS*  * 

66000 

031* 

JO  I F  M  , 

65000 

031* 

Jt*H  # 

66000 

031* 

JM  * 

67000 

031* 

66000 

031* 

JPJ*1  * 

69000 

031* 

JR?  * 

90000 

031* 

JRN  * 

vtooc 

031* 

J$Hh  * 

9?000 

031* 

0 
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jsHmj  » 

JS I th?  > 

JS^VAl  0 

JSOO  * 

JSBNI 

0 

93000 

031* 

JSP*I>  # 

JSPM12  , 

JSOHIO  , 

JiM  . 

JSSANG 

0 

94000 

031  A 

JSUP  . 

jsumost# 

JSUMSO  0 

JT  * 

JTCNO 

0 

9*000 

0314 

JTS  * 

jupl*it# 

JR  A  j  T  , 

JNC  i)  0 

JNHUA 

0 

96000 

0  31  A 

JNATUC#  JTAUM#  JTAUHI# 

Jl  AUH?# 

97000 

0  31* 

jcoaii  .  jsoaii 

#  JCAPHl  0  JSAPh!  0 

031  A 

J AJNAx  ,  JCOD  0 

jM  n  ,  js«n  , 

JR  A  T  0  jANG 

0 

0  31  A 

JC«A1T  .  JPA7  . 

JUKAnC  0  JCARK  f  JSPA 

0 

JCA*  , 

031  A 

JAR 

*  ,  JAPA  ,  JCA/AO  ,  JAP  JUS  T  ,  JPHJ  , 

03>  • 

JCAKHM  $  JSAPMll  0  JSRAMO  * 

JSAP  , 

031  A 

J*  # 

JXR  0 

JfNRORS* 

J0"IN  1 

96000 

031A 

tfGl» 

99000 

0  31  A 

JJHS.  JJHT,  JNdfri. 

JNAXN,  JNM A  XR 

•  Ji  BAM  » 

JIBJS2. 

>00000 

03  >  • 

J1BAS3# 

J  1 R  A  S  A  »  J!RAit>»  JNOH# 

101000 

031  A 

Jl»*SC 

0 

102000 

031A 

JICH  . 

JIOUNf  . 

jji  . 

JR  A  S  0 

JX  A2 

0 

103000 

031A 

J«*3  . 

JKA4  . 

JL  a  . 

ji*  > 

JlIBRAY 

0 

lOAOOO 

031A 

ji  nc  > 

JLP  # 

JIS"  . 

JIM  » 

JN»II 

0 

! 0*0*0 

031* 

JNC 

AND  $  JJJ  0 

JJM  • 

031  A 

JIA7  , 

J J A  DO  •  JJAO^AI  $  JROUNT 

0  JNHC?  0 

031 A 

JNAXCOI# 

JMPRCG  0 

JN*G  . 

JN  AGP 

0 

>06000 

03 1 A 

,1'IAUP  , 

jnaopp  , 

jnBpak  > 

jnc  y 

0 

107000 

031A 

r*  # 

JNrMAX  0 

jncol  # 

JNfM  0 

JNC*  I 

0 

>06000 

0  31* 

JNCN?  # 

JNCtC  • 

JNUtVG  f 

JNONAX  0 

JNDNAXP 

0 

109000 

0314 

JNf  URN  , 

JNGOOU*. 

JNM  j  ST  0 

JNMNAX  0 

JNL» 

0 

>>0000 

0314 

JNLM  # 

JNM A  r  f 

JNMATP  * 

jNnco  0 

JNP  A 

0 

1I100O 

031* 

JNPaP  > 

JNPART  . 

JNPHASt* 

JNPCOt  . 

jNPcniP# 

>>2000 

031* 

JN.PNDB  > 

J  NR  A  , 

jNRrie  » 

JNRlNG 

0 

>13000 

C31* 

JNRMAX  » 

JNAHAMP. 

jnh  stop  $ 

JNRORtfi# 

JNST 

0 

UAOOO 

031* 

jna/au  >  jjao  > 

JIAO  ,  JMAXR) 

0  J JAN A  X 

0 

031* 

$  jinucxi  #  jiii  .  jj? 

031* 

JN*P  * 

JNIiR  0 

JNNAIT  » 

JNR0 

) 

0  31 A 
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*HUCC0llN£  SKRANDAt JlRASE'J**)* 

1 30000 

031* 

1NUC.ER  J I B *SE  1 

131000 

031* 

RE *1  JRNI 

1 3?000 

031* 

RIG1N  INTEGER  ».  SI 

1 33000 

031* 

SIAmT 

OF  segment  • 

0009 

».{l?ll#]  ♦  J18»SE  .  1  IU  1  18  ]  1 

1  JflOOO 

oooc 

R.tl?l)5t  *  Ji 8»St  .  t 1 11 JSJ 1 

1  isoon 

0002 

JlRASf  ,tl2l  3<SJ  ♦  k^e^JlBASE; 

1 3*000 

OCOfc 

A  *  *01 

1 3TOOO 

000/ 

*  jtsm.t mzni 

13*000 

oooe 

JM-'f  «■  A 1 

1 39000 

OOlU 

JNN  *  JHN/ 1 3*?l E7?8.UI 

1  A  0000 

0011 

END  SRRANUAI 

1*1000 

001  J 

00  OG 

DOIT  LOGO# 

NEAT  SI  G 

OCCF 

PRUCEOUHF  SRSEAHCHI 

OOOAAOOO 

C31  * 

begin 

OOOASOOO 

031* 

IN1IGE®  Jl.JI.JKI 

031* 

ST'«T 

OF  SFGMENT  •« 

001.* 

rilKn«T  fL?J(/*  »nUN.'*RT»»  111  *  H»s  REFN  InCORRECTC’  lnrNliriED.*)* 

OOONOOOO 

0000 

STAnt 

OF 

SE  GMtNT  *****•••*• 

0011 

riJF(/»  POINT  HIS  UN  BlU)NUARV»,  13). 

00051  GOO 

ooou 

SEARCH  CyCi.E  THROUGH  REGIONS 

IS  NOT  HANOFlFO  properly. *J# 

ooos?ooo 

0000 

FLV5(/»  cannot  f  i  no  nr oi on  mjk  point 

NITh  COOHOINAUS  «  •  "  »  SI  *t  1  0  •  3 . 

00<-5*000 

0000 

"»  M  «  *#SI»k 10.3)1 

coot 

001 1 

IS 

OOS*  LOGO* 

*i»t  si  a 

OCK 

!_  X  5>T  L 1  ST  1  (  JNCH  )  1 

OOOSNOOO 

oooo 

L 1  ST  L!ST?( 

COOSA  000 

coos 

l»«(L  1  S.l  10.180, L SO. l?O.L  «»L  30.1  3N.L  If  .1  »0.<  8 0< L «0. L R  T.LOI 

OOOSFOOO 

00  12 

LSI  JNSY*OI 

OOOSAOOO 

cow 

JNIK»JMPREGI 

00050000 

0C1J 

jnuh*jnnmaxi 

OOOAOUOO 

cot* 

L 101  JK * JNI  fll 

OOOMOOO 

0015 
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oo  uroi* 

00062000 

OOIt 

JJ»SVNNI  JK  )l 

000ft  3C  00 

OOU 

ji*ii 

00064000 

cow 

un  Pf  Gf  N 

0004)000 

0016 

JNCB*AMS(SV1PI  JW  J«  !  >J 

00066000 

001# 

If  («PRMSVITT«I  JNCBi-I  )>»0  THE  N  Go  ’1  liO  EL*t  If  *#N.O  THEN  (in 

00067000 

0020 

TO  L29J 

00066000 

00?) 

t  ?OI  *« |Tf <H» jNT#ri?)#L|ST 1 >j 

00069000 

0024 

00070000 

0029 

fill  TO  190J 

00071000 

00)0 

1291  J*H*SVCOtCUNCH!-JH| 

0007?000 

0030 

no  in  iiii 

0007)000 

00)2 

L 10 1  JKK.SVCOEU  JHCBl-JH  J 

OOOMOOO 

0011 

U5i  if  (*°H.(j«a))>o  ihen  40  to  l«o  else  if  »m<o  the#  go  to 

00079000 

001# 

L  )  61 

00076000 

OOlf 

»RlTE(PHiNT»ri.l1'«t!STl  11 

00077000 

001# 

jH‘ jH* jntlT««jCOTH| 

00076000 

0041 

jR» jr> JOEL r*«js! tmujCPhj ; 

00079000 

00«! 

f.O  to  L9I 

00080000 

00*5 

uni  ir  («ph»(<vib(J(>j'O))»0  t mf h  go  to  l»o  else  if  »P"»o  The"  r.o 

00001000 

0046 

to  t?o  else  go  tu  1.501 

00067000 

0090 

1401  \f  (IPM»(SV!B!  JWJM)X0  THEN  GO  TO  l  AO  USE  17  *P«»0  THEN  00 

0008)000 

0091 

TO  l?OI 

00064000 

0099 

l90t  E NO  until  (  JWC  JIM  >>>  JJT 

00099000 

0096 

jncr*jkj 

00066000 

0099 

GO  TO  LOI 

00087000 

005V 

L60I  LNO  UNTIL  (  JK  ♦  (  J«  ♦  I  )  )  >  JN'JBT 

00066000 

005* 

If  !«PP*(JNSr))>0  THEN  GO  III  L»0  EL*F  If  «PH«0  THEN  40  TO  l#0» 

00069000 

0062 

JN9V*|I 

000"0000 

0069 

JNLBM  * 

00091000 

0066 

JNUP* jwPRf G 1 

00092000 

0066 

GO  TO  HOT 

0009)000 

004T 

JJMI 


001?A000 


0030 


> 
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pn  h  r  g  !  n 

00127000 

0031 

JtCR*4RS< $V IHI JJ. JNC*  1  1 1 

00120000 

0031 

If  (VKW+Cnvl  TT^CI  JI  !•!  M»0  THEN  Gfl  TO 

1  30 

El  St 

ir 

*P6*0 

then 

GO 

TO 

001 2<»000 

0033 

l  70i 

001 30000 

0036 

■«|Tf  (PRINT. |  Ub»ClST|  >1 

001 31000 

0037 

JlltfDA*  JMN0£«1  1 

001 32000 

004  1 

no  in  l o i 

OOl 33000 

0042 

l.?ni  If  »«$(  JCI)TMMJS«V»L  Twin  d(l  T(1  l  ft  o  1 

00, 3*000 

0C42 

i  Jic«i-JM)/jcn«Hi 

OOl  1*000 

004* 

GO  TO  L}Vt 

OOl 30000 

0046 

L  30 1  If  ARSC  Jh|  TNMJSHV4L  THEN  GO  Tfl  if,  ol 

001 37000 

004/ 

JH«nr»(SVCOtt|  1*7)1 

OOl  JRO'iO 

0040 

It  jrm4C*o  iMtN  r,n  rn  i6u» 

001 3°000 

00*1 

It  (XHH»(SvClllCC  jlCMl*jMf)>0  TMJN  GO  To 

13S 

USE 

IF 

XPR«0 

Thf  N 

GU 

TO 

001*0000 

00*2 

1  3*1 

001 *1000 

00*6 

JNPMFG*JNfRI 

001  *?000 

00*6 

*«M  4hfH  | 

001*3000 

00*7 

tf  jrNM(iws< jxMfi*  t*in  go  iu  i«  f i %r  go 

0014*000 

00*7 

L  )M  JK*CJN«IJCPH|  *SQM!  < JNH4C1  1  /JSl TMI 

001  6*3000 

oo*v 

GO  in  L  3 v 1 

00140000 

0063 

1301  j*»( -JPK  JCPMI  ♦SOM!  (  JHMIC  1  1/jSfTM 

001*7000 

006* 

13*1  ir  j|i)u“P{0  TMfN  GO  in  1001 

OOl 46000 

0066 

«M|TF(PRINT»I  l**,l1  ST?>I 

00149000 

0070 

tool  |F  J*<0  Then  go  TO  L*0j 

001*0000 

0074 

IF  JOISMJX  IMEN  go  Tu  1*01 

001*1000 

007* 

jni  st»jx*jou  in 

001*2000 

0076 

jNf  R* J  Tf R  J 

OOl * 3000 

0077 

J  J 1  ♦  J  J  1 

001*4000 

0076 

LftOl  t  Nil  UNTIL  C  JJM  .1J*1 

001 **000 

007V 

11  L  T  A  "MEN  Gu  Tn  101 

001*6000 

0062 

NM  TTMPMTNT  »FL  r>,L  1ST  31  1 

OOl S7000 

006* 

jHf  JH»JhFI  Mi  JCHTMI 

00 1  *6000 

0067 
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jN*jfUJl>fLTA*JSlTM*JCPHU 

001*9000 

0069 

JHHR£G*-SVHPH|  JJ1*  JNCR1I 

00160000 

0091 

SHSF  ARC  H 1 

00161000 

009  3 

\r  J h f R > 0  ThFN  (in  TO  IM 

00162000 

0  0  9  A 

L  0  *  £N!>I 

0016300'; 

oo«b 

00  w 

|S  0|0|  LONG. 

NFHT  SEG 

PnUCEUUNE  SRDICSC*! 

00166000 

031 A 

B1  Q1N 

0016*000 

03 1 A 

1MFGFR  Jl  #  JJAILI 

stakt 

OF  SEGhIM  ti 

0J‘)6 

COMMENT  THE  FULLONlNG  PROtiOURrS  »RC  USEDI  SRH»NO»» 

not  MOOO 

oooo 

FOMHAT  U5M/ 

001 7?000 

oooo 

ST*HT 

OF  SEGHCNT  *< 

•  THE  C0"nE  V»LUPS  F OH  MHICH  THE  mIE  SC*1TERInG  PH»SE  FUNCTION  ■« 

001/3000 

oooo 

"»HE  INPUT  »HE  INCORRECT  fUH  H A tE R l»L «. 1 J . " . " U 

001/6000 

oooo 

001* 

IS  OOPi  LONG. 

Nr»T  SEG 

LIST  L1ST|(JNCM)| 

ooi/boon 

oooo 

L»»Et  15.1110.1,  150, El  F0.L2U»L60.Lb?<L0l 

OOlTSOOO 

000b 

SNITCH  SNF.ni*LI10»LlbO«LllU»Llbnl 

ooi //ooo 

ooob 

COHHFNT  SUHROUllNt  DIFSCAI^OINTW 

001 TROOO 

0011 

IF  JRfFLSO  THEN  GO  TO 

OOI /vooo 

0011 

JjAllMVjREFLTt  JNRBII 

00160000 

0013 

GO  TO  S N GIT  1  {  JJA  IL  1 1 

00161000 

00  1 A 

UlOt  JPSC  ATM/6, 263161 

00162000 

0016 

GO  TO  L  01 

00163000 

0016 

L1S0I  JhCrC#-SVhHFANGt  JNRBU 

00166000 

0020 

JIM  1 

0016*000 

0021 

on  BEGIN 

00166000 

0021 

IF  jCSAfcSVRFANGt jl#JNHAl  IH£N  GO  TO  ll/OI 

0016/000 

0021 

t  NO  UNTIL  (J1MJ1M  U>JNCKJ 

00166000 

ooi* 

UITOI  IF  JCS»  ■  SVRFUNGt JI>JNRB1  THEN  JPSC»T  »  S V PORtJI > JNRB I  CL  it 

00166100 

0026 

jPSC»l*SVPORt Jl”l #JNHH  J*( SVFORt JI,JNRB)*SVPOHt J1-1.JNH0 J I  *  C 

00189000 

0031 
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JC  S*”S»»F»*l5I  Jl-I  ,JN*B))/l  SVHFJNSl  J|  ,JN4SI-SV6f ANSI  J 1  • 1 > JNN B  )  3 1 

00190000 

0036 

GO  to  LOI 

00  J  V 1 ooo 

00  A  3 

Lit  S»A*NOA(  J  lUASf  .  J*N  )  | 

ooiv?ooo 

0043 

I 7  JRN>J»ATlEI  1N£N  AO  TO  L/0 1 

00193000 

00A3 

JP6CAT«<l«JCSA«JCSA>«.n596«ll 

00l««000 

0046 

r#u  to  toi 

00193000 

0046 

L?0 1  jHC*C«SVNOff 05!  JNC«II 

00196000 

0050 

JIM  1 

00197000 

0051 

DC  Mf  G  l  N 

00 l 96000 

0051 

If  JCSAiSVOlFCOSl  Jl .JNCNI  IhCn  GO  to  1401 

00199000 

0051 

i«n  until  < Jt*< jim ] i»jni*ci 

00700000 

003A 

L3?t  «»ITt(PB:NT*rtSS»LlSTl )J 

00?0(000 

0036 

JXM01* JKMOA* | ) 

00202000 

0060 

GO  TO  i 0 1 

00203000 

0062 

l no i  n  jcs*  •  svoircnsiui.jNcHi  then  jpscat  ♦  svpocosi ji, jncni  ti.st 

00204000 

006« 

JP4C»T«SVPOCOMJl-t.  JNC«)«lSyfOC0Sl  Jl.  JNCNfSTPOCl'St  Jt-1.  JNCM))»( 

oojosoon 

0067 

jcs»-5voitcos(ji-i.jnCh)  iMsvoircost  Ji*JNCH)"SVoircos[  JI’I'Jnch)  >i 

00206000 

0077 

LOI  indi 

0020700C 

0079 

001  A 

IS  0003  LUNG# 

NF*T  ! 

PNUCfOUME  MiriTfCTI 

00206000 

0316 

6H»IN 

00209000 

031  A 

Pt*L  jcno.  JS10I  UTfutR  JJ#JK# JL# J*l 

03 1 A 

start 

or  SfGMtNT  « 

INUGfH  JLC.  JI»  JJ3.  JJ?I 

ooou 

CONMFRT  TM[  f DLL  0* 1 NG  PROltOUHCS  AP f  USfOl  S»R ANOA# S*Ol F SC A* 

0072A000 

0000 

r  .<MAT  HMJC/*  AZIRUTHuL  **gii  an «•  »"* st *  ft t • 3# 

0000 

ST  AN  T 

or  srGHtNT  * 

"IS  OUT  or  INPUT  A/lMUlHAt  RANGf. "  >  # 

00726000 

0000 

PL  ??( /"  LOC  ■"#!*#"  ALPHA  *"#S 1 1 Ov  3  » "  Pf  T  A  •» » S l #F 1 0, 3# "  OtPH  »"# 

00227000 

0000 

Sl»riO#3/"  RRU2  •  "#Sl#f  10#J»"  P«0*0  ■"  •  5  1  #  f  1 0  #  3*  "  SUMS®  »"»SI#C10.3# 

00226000 

0000 

"  ANf,  »"#Sl  #110,3/"  NRI4U  ■"  #  I A  #"  J  ■"•IA#"  K  •"#|A#»  CPT  »"#$1# 

00229000 

0000 

no. j."  spt  •".si.no.j/"  ojpang  •".si.no.j.*  cpmio  •"•si.no.j. 

00730000 

oooo 

0017 


> 
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*  SPHtO  •".S1.E10.3.*  C^hko  *".SI»E!0.3/"  T  •",St»£t0.3»"  CUTH 
si.Eto.j."  temp  a'.si.Eiu. 3<*  sith  *".si ,eio, 3/"  cphi  ••.si.eio.3, 

*  SPM 1  •".31.1(0,3**  H  •  ".Sl.EtO.S**  R  •*»SJ.£lO,  1.*  SHOT  ••,$(, 
F10.3/"  SUMuSI  ■".S1.E10.3."  mT  •".St»E10.3»"  OT  •"»SI<ETO,l. 

"  PM  "".S1.E1C.3). 

flo ioc /"  cap«  ".si.ru.3."  car*.  ".st.m.s."  cpa*  "»si»eii.J»"  sp*«  "» 

SI. £11. 3/'  SIO*  ",  St. Ell. i«*  COO*  ".SI. £11. 3."  CPHIO«  ".St.Ell.3, 

*  HP*  ", SI. Ell. 3/"  T*  ".SI. Ell. 3."  RD( J )•  ", SI, Ell. 3). 

Fl?AS(/*  CAP  *".SI,EI0.3."  SAP  •",31,(10.3,"  APA  •".S1.E10.3/ 

"  JAOO  *".13."  GUAM  •".M.EIO.S."  S0A71  •".Sl.i  10. 3). 

FL25TI/"  LOG  •"«  1A,"  J  ■" « 1  A ,*  LA  •", t A,"  LP  CSA  •*»SI> 

E10.3."  PSCAT  ■".St.ElO.3/"  "AIT  •".Sl.EtO. 3.*  "HOT  •*.S..EI0,3» 

«  HP  IMG  ■",  1A,"  CPA  •".SI.EIO.3/"  "ISULT  *".SI.EI0.3. 

"  FLUX(L.LF.LA)  ■".S1.E1U.3."  FlUOt  J.NC*  I  >  •".  S  J.  £  1 0 . 3/"  "CH1  *".|A. 

"  RFlUX(j)  **«Sl.rl0.3>*  "EFl  •".SI. £10. 3."  L  **<IA)J 

LIST  LlSTlCJANG)) 

LIST  l  1ST2I  JLOC.  J  ALPHA,  J0E  U  ,  JO  |FH,  JRR02.  JPROStl.  JSUHSO.  JANG.  JNK 1NQ, 
JJ.JK.JCPT.JSPT,  JolFANfi,.ICPHlo.J5PHln.JCP""0,jT.  JCUTH.aTEMP.JSITH. 
.JCPH1,  JS“Ht,  JM.JR.JRHOT,  JSUMOST.  JHT,  JOT.JRN)* 
l  1S1  LIST J( JCAP, JCARK.JCPA.JSPA.JS10. JCOO . JCPH (0 , JR?, JT.SVHOC JJ)>> 

LIST  L1STAI JCAP, JSAP. JAPA, JJADO, JCOAfl, JSOA/I )) 

LIST  LISTS! JLOC. JJ.JLA.JLP.JCSA.JPSC AT. JHAIT. JRHO T . JNR INS. Jt P A . JRE SUl T.S 
VFLUXtJlA.JLP.JL  J.SVFUIOt  JNCM1.JJ  1,  JNC"  I  ,  SVRFL  UX  (  J  J 1 ,  JREFL  ,  JL  !  I 

begin 

LAHEl  L2A0.L11 ,LS03.l50 A.LSOP.LS 10,1 l8,LlT.L2S,LI0n,L?10,L*S0,L Too. 

L?lT,LAS0.L?|9.L?3O.l  7S0.L7SS.L  3?0»l0t 
COMMENT  OFTECT) 

JALPHA*JS1TM?»JCPH|?I 

JBtTA*jStTH?«JSPHt?) 


00?  3t  000 

0000 

00237000 

0000 

007330C0 

OCOO 

00734000 

0000 

oooo 

00236000 

oooo 

00237000 

oooo 

00238000 

oooo 

00239000 

oooo 

007*0000 

oooo 

007*1000 

oooo 

00242000 

oooo 

00243000 

oooo 

002**000 

OCOO 

002**000 

oooo 

026*  lOKG* 

NE»t  ! 

007**000 

oooo 

O07ATOOO 

000* 

P07ABOOO 

00 1  T 

002*9000 

0032 

002*0000 

00*7 

002*1000 

0064 

002*2000 

0076 

002*3000 

0091 

002*4000 

010* 

002**000 

0104 

’  SFGMInT  * 

002*6000 

oooo 

002*7000 

oooo 

002*6000 

oooo 

002*9000 

0001 

JJMI 


00700000 


0007 


4 
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00  6'GIN 

00761 000 

0003 

J01fk»5V*0?  JJ  )-JM?l 

00767000 

0003 

JR»0“*JR?«SV«0( 

00?6  3000 

000  A 

Jk*050»SV*D<  JJ)*SV»0{.JJ  )»JH?"Jlt?l 

00?6*000 

0006 

JSUNSQ* JflR0S«« J0|f H«?| 

00765000 

0009 

JS0r*SQ»T<  SVKUI  SV*Ul JJ)*JHS)«?) 1 

00766000 

oo  :i 

JC00*<  SVMOl JJl-JMS )/JS00> 

00767000 

00)5 

JS  1  0*  5VR0J  JJ  )/ jsnoi 

OC  76  0000 

00)7 

JN»)NG*SVNPm10(  JJ  )  1 

007**000 

0010 

jk»i  J 

00770000 

00)9 

00  PfG)N 

0077)000 

0020 

SM»*N0*(  J Id*  S 1 , J»N) 1 

00777000 

0070 

It  SV*r  1  )40  1 HTS  GO  TO  tnl 

C0773000 

0021 

T  F  SV5*2*<  JN5A/A)5*,141*  TNfH  CO  TO  L503I 

0077*000 

0023 

JS*N»3.)«lM 

00775000 

007* 

jm*t*,m 

00776000 

0025 

f.n  in  150*1 

00777000 

0026 

|50Jt  jS*m»SVSa/A(  Jn5***)I 

00770000 

0030 

jm  A  T  » 1 J 

0077QOOO 

0031 

L«|01I  JA7M*X»|-FXP{-SV*tl  )"JS*M)| 

00750000 

003) 

J  4NG ♦ *1 N (  1 -JMNuJAZMAX  >/5V*( 1  1 1 

0076)000 

0035 

JCPAITM  J**IT«J*?MA»/{iWAf  n>C«P(*SVA(T  ) *  J* NG ) )  > / JR* T 1 

00767000 

0036 

MtftANOii J1HAS?, JRN) | 

00763000 

00*3 

TF  JRNJ J4*  T  THFN  GO  TU  L50V| 

0073000 

004* 

J*NG*6.763?“JANGl 

00765000 

0045 

L509I  Jl*?l 

00766000 

00*6 

00  HfGTN 

00767000 

0047 

IF  J*Nf.SSV$-7*(  J1  )  T^in  GO  TO  15101 

00766000 

0047 

i NO  UNtjL  < J)*t J) ♦  ! 1J>JNS*7AI 

00789000 

00*9 

NFflir(PN|NT#FL5n»UST!  )l 

00790000 

0051 

JNMUA* JWMOA*  1  1 

0079)000 

0055 

r,n  to  L7*ci 

00797000 

0056 

93 


L510I  jPA2*SvPft?A!  JIM  JMSVPAZAC  Jl  1-SVPAZM  Jl«ll>*(  JANGMVSAZAl 
Jl-t  J)/(SVSA2at  JM-SVWA1  J|  -  1  J3I 
JCP*H*JC*»AIT«JPA7I 
GO  TO  l IN » 

Lit*  J I ♦? J 

00  RPGlS 

IT  jRN<SVP*2*r  Jl  J  THtN  GO  TO  l  171 
f NO  UNTIL  (Jf  +  (J1*1))>JNSA/Al 

L  T  7  I  J*NG*SVS*2A|  JI-13»CSV5»*2At  J!  t-SVS*2A!  J1-!  J  )«(  JRN-Svr  I] 
JI»!l)/fSVP*/Afjn»SVPA|ACjt«l1)f 
JCWA|T»JNA|T | 

L I P 1  jOir*NG»svA20t JJJ«JANC» 

JCPT*C0S(J0IFANG)J 

JSPT*S1N( JOIFANG)! 

jCPHlf)*  jCPT»jCn*21»jSPI*jSIIA/|  I 

J$RH  10*  JSP T JC0*2 1  *JCP  *  *  JSHA2 1 1 

jCPNRo»jcPHir)*jpRo?» 

ir  ( jsi'MSo-jcPflHO)  *  o  imfn  tin  to  12*0  j 

JT*SQ«T( jSUMSti-jCPRHO )i 
TF  JTSJI'M|N  TMFN  GO  TO  L260| 

JC0TW*>JI»|I  H/jt  | 

JTF*P»SQRI ( JHRnSQ-JCPHNU)! 

JS!«H*JTEMP/jt | 

JL0C»90I 

IF  JlOUHPSO  THF^‘  GO  TO  L25J 
WH!TF(PRINT»FL2?*I.IST?  M 

L25 1  If  *BS< JCOTH)>jsmv*i  THtN  GO  Tn  LlOO; 

JRHOT^JT*  C  S v  T  A  |J  | JJHT 1-bVTAUr JJHfl 1 ,  /(SVMV  t JJHT  J-SVHV(JJHH  )  ) I 
r.U  70  12107 

1100/  J N H U T * ( SV  T  * U H n ( JJ1-J1 AUH?)/JCOTHI 

121  Ol  JCSA»(  j*LPHA«r  SVNOl  JJ)«  JCPH|0-JH?)4-JBF  T*»  (  S  VRO  t  J  J  J»  ,/SPH  1 0  )  ♦ 
JC(JTH?*jOlfH)/JT> 


00293000 

0029*000 

00295000 

00296000 

00297000 

00296000 

00299000 

003O0C00 

nosoiyoo 

00302000 
00303000 
0030*000 
00305000 
0030*000 
00307000 
0030*000 
00309000 
00 JU9100 
00310000 
00 i 1 1  COO 
00  3 1  2C00 
00)1 3000 
0031*000 
003IS000 
0031*000 
00  3  1  7  000 
0031*000 
00319000 
00320000 
00321000 
00322000 
O037300 0 


0061 
006* 
0066 
006V 
0070 
0070 
0070 
00  7  ‘ 
00  7  * 
0076 
00*2 
OOfli 
006* 
0086 
0087 
0069 
0092 
0094 
0095 
0097 
009e 
009V 
0101 
0107 
0]04 
0]04 

oioe 

ouo 

oi  i* 

OllV 
01  2  » 
012* 


> 


94 


shoifscai 

003?*000 

0|J6 

IF  JF«»ORS<JWMOA  TKtN  TO  L'l 

003*6000 

012? 

jwrsui  jChM  T«j*$CAT“t  *p< -jhhut)>/((  jnring>*ji**>i 

003*6000 

0128 

JCAKK*<  SV»Dl  JJ1-J»?«JC^HI0)/JTI 

003*7000 

0112 

JC*A»jS  IOiJCARiUJCHTM*  jCOPI 

003**000 

0118 

IF  JCPA*?  *  1  IMIN  JSPA  ♦  0  US* 

003*0 |00 

Oil? 

JS»A*SQHT(|»JCPA*?)I 

003*9000 

0|«0 

II  JSPA  ■  o  THfN  JCAP  ♦  0.9999  fLS? 

003*9100 

0|«« 

ir  jcnn  ■  o  tmfn  jcap  *  jcotm  /  sq*t<i  •  jca*k*?>  Fist 

003*9*00 

0)16 

jC  Apt C jCAK*-jS!P»jCPA >/( •J^jCOO«jSPA)I 

00330000 

oi»J 

IF  AR>(JCAP)<1  IMFs  GU  »U  16S0J 

00331000 

0 1 56 

ttPTlf  f  PH|NT#FLAlOuiST3)l 

0031*000 

0160 

GO  T n  1*601 

00333000 

0161 

L6S0I  JSAP*SORT( l-Jf AP*^)I 

0033*000 

016* 

JSAP*TMG*C  J',AP»  JSPHlOil 

00  336000 

016? 

IF  J  CAP  >  0  TMCN  JAP*  *  IIGM  JSAP>»1#*70796  FlSl 

OOjJblOO 

0i69 

PIG  IN 

00336*00 

01?1 

JARG* JSAP/ jCAPl 

00330000 

(i|  ?e 

JAFA»A*C  TANF  JiRC) 1 

00337000 

01?? 

FF.0  1 

00337100 

oi?e 

\t  jcAPi^i  then  go  to  ifooi 

00336000 

0 1  ?8 

JSAM*  3, | A 1 At 

0033*600 

0180 

JAPA*JAPAfTSlGN( JSAM# JiAPJI 

00339000 

0160 

1.7001  IF  jAPAJfi  THEN  GU  TO  1*171 

003*0000 

0162 

I»  SVCA/AI JNAJA  )>!*!  T*:N  Gn  TO  1450  1 

003*1000 

0 1  6* 

JAPA*A«S( JAPA)I 

003**000 

C;65 

GO  Tri  1  ?  I  7 1 

003*3000 

0|66 

IASUI  JAPAfjAPA*6.*6318« 

093**000 

0|90 

L  *  1  7  1  JAPA*  JAP|*S7.?9SM9| 

003*6000 

0|9| 

JL  ♦  1  F 

003**000 

0|9J 

no  HFf.lN 

003*7000 

0194 

IF  JAFA«SVCA7*I JL  1  Thin  go  TO  L*l9| 

003**000 

019* 
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END  UNTIL  ( JL*< JL»!>!>JNA<aJ 
L? 1 9  I  JLAZ+ JLJ 
JJ*UO*JLA/*JN**A«< JJ-1  )l 
Jl  ♦  1 1 
DU  BEGIN 

IF  SVCIP*  tJL  MJCR*  THFN  GO  TO  1  230J 
E*0  UNTR  (  JL*<  JIM  ))>JNPAJ 
L?  30  I  JL**JLJ 

If  JIOUMPSO  TMf  N  GO  TO  L  2501 
«HITF(PRINT*FL?*5*L1ST*>J 
L?50i  J|.P*  JNREFL  J 

SVFLuXt JL*# JLP,JJ*00)**VfLUXt JL*.JLP, JJ*00 J*JRFSuLtJ 
SVFLUOr JNCR?» JJ (♦SVFLU01 JNCR2,JJ>* JHESULTJ 

if  jufftso  Then  go  to  L25SJ 

SVRF  tw*5  JJl*SV*F  LUX  l  JJJ*JRESULT» 

SVRUnt  JLP*JJ)»5VRriOt  JL»*»JJl*jRtSULTJ 
L?55!  JHtll 
DO  BEGIN 

IF  SVlNCULtJM)>JNCOl  I MfN  GO  TO  L320J 
E NO  UNTIL  ( JM*< JMfl)>>JNPCUL» 

L3?0»  JL  C* JM  J 

SVAFLUXt JLC* JJ)*SV*FLU*l JLC . JJ)*JRE  SULTI 

jLncmoi 

IF  JIOUMPSO  rtrN  GO  TO  L260J 
JL* J JADO I 

NR1TF  CPR'NT»Fl?5T»L  1STDJ I 
L?*0I  ENO  UNTIL  ( JK*( JAM ) )>JNRINGI 
t NO  UNTIL  ( JJ*( JJ*I ))>JNJM*Xl 
L 0 •  ENO  FNOI 


00369000 

0195 

00350000 

019/ 

00  35 1 000 

0196 

003S2U00 

0201 

00353000 

0201 

0035*000 

0201 

00355000 

0203 

00  35DOOO 

0?05 

0035/UUP 

0206 

00350000 

020B 

0035O000 

0211 

00360000 

021? 

00361000 

021  / 

00362000 

0221 

00363000 

022? 

0036*000 

0?2* 

00365000 

0226 

00  366000 

o??e 

0036/000 

0226 

00366000 

0?30 

00369000 

0232 

003/0000 

0-233 

003/1000 

023/ 

003/2000 

0?36 

003/3000 

023V 

003/ *000 

02*0 

003/5000 

02*3 

003/6000 

02*6 

003//000 

02*6 

025?  LON u. 

NEXT  SE 

0111  LUNG* 

next  st 

003/6000 

031* 

0016 

000/ 


PHUCEOUHE  SHXNSNfKl 
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•f*|N 

n»"  i n t t ot r  o*i* 


Rl*l 

rOH¥*T 


INTEGER  J JN •  JJJ  *  JNCAROI 

je group# jfnmmaxi  integer 

tliioc*  Radiation  Rlsca*ch 


jl# 

ASSOc 


JJ#JK 

HUS 


#JN# JN 

1 1 TE"  I 


i 

PRObLCm"MI 


0)# 


Ftl?n(/*  HISTORY  TfRMl NATION  COUNTERS. *># 
rtl 30(/"  "# 19# 

•  HISTORIES  were  TFRmIrAUu  RRFn  THE  COLLISION  NUMBER  EX CE i OEO*# I «# • # •/ 
IIO,»  HISTORIES  HERE  TERM  I  NAT  CO  BY  TRE  REGION  ImPORIANCE  PArAnE  URS#  •/ 

no#"  HISTORIES  here  TERMINATE  0  RY  minimum  HEIGHT  COTOEF  **/l I  0# 

-  HISTORIES  HERE  TERMINATED  AF  TEH  RAXIMU*  NUMBER  OE  REFLECTIONS*#**")# 
FlUSC/*  *#19*"  collisions  OCCURRED. •)• 

FLISOC/ 

-  particles  terminated  in  each  region  hy  region  importance  paham*# 

-t TERS.")# 

fi ie*'  * 

•  REGION  HI  STURT  CS  REGION  RlsTORlFS  REGION  HIMORItS  REG  I  0"# 

•N  MISIORIES"/ 


"  T|RmInaTEO  TERMINaYEO  TERMINATED  "» 

•  TERM|NATEO"># 

FL1 70("  "# IA# 19# II 0# I9#I 10* 19# 110# !«)# 

FL I  90 (  / 

•  SCATTERED  LIGHT  INTENSITY  VFRSUS  ANGLE  ANO  NUMRER  OF  REELECT*# 

•IONS  FROM  SURFACE  ONE*")* 

FtlOK/MO*"  AZIMUTHAL  ANGE  ■  "#SI  #E  1 0 ,3#*  TO  ”#S|»E10(3)» 

FLZOD(/w  SOURCE  HflGHl  H  •"*  SI  •  F 1 0*  ,1# 

OETECTOR  CO0ROINAIES  M0«"# SI #E I  0 . 3#»  RO«#»#Sl ,Ein#3)# 

FLZin;*  ANCLE"#K31**C0LLI>I0N*), 

f  L2S0("  (COSINE)*# IB#6<i9# U))* 

Ft?P?(*  (COSINE  )  TOTAL*)# 


OU379UOO 

031* 

003*4000 

031* 

SEGMENT 

0000 

oooo 

003920.0 

oooo 

SEGMENT 

00391000 

0000 

0039A000 

oooo 

0039S00O 

oooo 

0039*000 

oooo 

00397000 

oooo 

oomooo 

oooo 

003«900n 

oooo 

ooaooooo 

oooo 

00*01000 

oooo 

00AU2000 

oooo 

GO  AC  .1000 

oooo 

DOAOAOOO 

oooo 

OOAOSOOO 

oooc 

O0A06000 

ooco 

00A07000 

nooo 

ooaopooo 

oooo 

C0A09000 

oooo 

OOAIDOOO 

oooo 

OOAI 1000 

nooo 

00AI2000 

oooo 

nooo 

OOAI AOOO 

oooo 

OOAISOOO 

nooo 

OOAI 6000 

oooo 

OOAI 7000 

oooo 

*  0019 


*  0020 
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r l  ^6 « c " 

"»X?3*"T0TU*,)» 

00*10000 

oocu 

fi?00(" 

%m»"TOTU"l# 

00* 1 9000 

ooou 

Fi*e»(" 

00*?0000 

OOOU 

Fl270(" 

"#X50#"TDT*t")# 

oo*?iooo 

0000 

fl?7?(" 

"#X07#"lr,TAL")» 

00*??000 

0000 

Fl  i»7«<  " 

"#X7P»"T0T*L")# 

00*?3000 

ooou 

00?0  I*  0 ?6 1  LUNG# 

NEXT  Si  r,  0019 

st*nt  nr  segment  ••**•♦•**•  oo?i 


ri^0O("  " 

#R7.*#M #Sl »7il 1 «i)» 

0000 

FL  J(W(  /” 

TOTAL  ”#Sl»7Ml.i)» 

ooou 

FL«50(/ 

00*^6000 

ooou 

m 

SCATIFHEO 

Ur,KT  IME'SITT  VERSOS  REGION  HE 

00*^7000 

ooou 

"SCATTER 

"># 

oo*?0ooo 

ooou 

Fl«6C< /" 

Rff.IUN  "#X|0#"m  TFCTC1R")  # 

00 • ?9000 

0000 

Fl*«M /" 

m«i# 

00*30000 

0000 

Fl*9S</" 

01 

0?")# 

00431000 

ooou 

FLS0S{/" 

01 

0?  03-)# 

00*  3?000 

0000 

FLS1 S( /" 

01 

0?  03  0 * "  ) » 

00*33000 

0000 

Fl*>?M  /" 

01 

0?  03  0*  CS"), 

00*  3*000 

0000 

Fi  (  / 

D0*3S00n 

0000 

m 

01  o? 

03  0*  OS  "# 

00*3*000 

0000 

** 

0*")# 

00*37000 

ooou 

f  S*S(/ 

00*30000 

ooou 

" 

01  o? 

03  0*  OS  "# 

00*  3°C00 

ocoo 

" 

00  07")# 

00**0000 

0000 

FL*60( " 

"#I?#X3#S1 #7(11*3)* 

ooou 

F  L  500 ( /" 

total  "#si# n i i • *>» 

0000 

F'  0O5(/" 

00"  )» 

00**3000 

0000 

Fl  1M/" 

00 

09" )  # 

0044*000 

ooou 

Flft?S(/" 

00 

09  10")# 

oo**sooo 

ooou 

FL6S0!"  LIGHT  SC  *TTC«f.  0  FHU»  REFLECUHN  SURFACES  ,0  E*CH  Jl 1  EC TUR , 

00**0000 

ooou 

FU90<  /" 

*n  OF  REFLECTIONS 

OETCCTOH  ")# 

00**7000 

0000 

* 
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eltosi/*  *#*u>i(*9.  Dili 
riMot*  •»!?,**. st.stit.i). 
nrjo(/m  toi»l  "•si.itn.D. 

ELE14(Ea«.*»*I0»l*,t?»  t ?.!<•"  <■:£')* 

«££*). 

ELMMSt  .  ir  '  I.  )>*)).  I  t.lz.i /.  1?.’  »££•)) 

List  lISTIIjnEHOSII 

LI  ST  LISTfl JM«*£DL.JN£N«*.JNRSTnP.JN,n|T.JNN»*R)l 
LIST  LISTjI JNUGU1I 

LIST  LlST<(rn«  0*1*1  STfP  1  UNTIL  JNRn»*  on  (0*l»SVNR|cO|0*III>l 
LIST  LlSTV  J£</»n.SW£C*Z<(  Jl*01)l 
LIST  LIST*!  J«S.SW»nl  JJliSVNUl  JJDI 

list  listtieor  o*i«j«*i  su*  i  until  j««?  nn  s«uMecto*i>)* 

LISt  lIST8(SV£1P*1  JNl*E(lR  UM*J*«1  STEP  1  UnTIl  J*«?  00  5 VE LU* I Jn» DX | » 
JJ*nr.  1)1 

LIST  llSTg(EOR  0*UJ««(  STtP  J  UNTIl  l?  00  SV  TE  l  U  *  |  0*  ,  *  J  J»00  I  )  I 

LIST  l ISTIOI S*N«tSt J1I.E0R  D*l*1  5T  1  UNTIL  JNEORR  oO  SVE LL 0 1 J I » U* I ) ) » 

LIST  LlSTIlirOH  0*1.1  STEP  I  UNTIL  JNE  HR  N  00  SVElURI n XI 1 > » 

LIST  lTST17<SVNNEG< Jl I.EPR  "*1»R  STTP  1  UNTIL  JNFORN  00  S  VEl  UO  I  J I  >  »X  I  1 ) « 

list  LisimruR  n*i*«  step  i  until  jnehr*  no  sveluR|o*i  hi 
LIST  LlSTMtrnK  0*1*J«»I  SUP  1  until  JU?  00  SWNOC  T 1 0*  I  J )  * 

LIST  L I STISI SV  I IREEl JJJI.EUn  0*l*J*«l  STEP  1  UNTIL  J«»?  00  SVKGOJ 
JJJ.O* I  I  1 1 

LIST  L  I  ST  1 N  C  EUR  0*|»J««l  SUP  1  UNTIL  J««?  00  SVRE  L  U*  1  8*  I  J  1 1 
LIST  LlSTlMrOR  D*|*JK«|  SUP  1  UNTIL  J««?  00  SVRNGI 0*1 1 . JNPKOR . Jl »0. 
JJO.JNEEROII 

LIST  LlSTIPirOR  0*l*J«E|  SUP  I  UNTIL  JK«?  00  SV  EL  MX  I J  JN  »  0*  1  .  J  J  J  I . 

JNPRQP. JIIOi JJ'Ji JNC*R0)> 

REOIN 

L*BI.L  L^9R»L;00.L|RS.L?*0»L/8|.I  ?/S*L7ft5*L?8S.L?0E.L?RR»L?E|»L?EJ» 


ooonooo  oooo 
0000 
0000 

00*5)000  0000 

0000 
0000 

oo; i  is  o?«i  long.  ne»t  seg  ooi» 


0045*000 

0000 

00*55000 

0005 

00*56000 

0015 

00*57000 

0020 

00*5*000 

0031 

00*59000 

0030 

00460000 

00*6 

00*61000 

0055 

00*62000 

0061 

00«6 jUOO 

00  ,7 

00*6*000 

00*7 

00*65000 

0000 

0O4660U0 

0097 

00*67000 

0100 

0046*000 

0117 

00469000 

0126 

00*70000 

0130 

00*71000 

0137 

00*  7?000 

01*6 

00*73000 

Oi55 

00*7*000 

0160 

00*75000 

0160 

00476U00 

0176 

00*77000 

0  1 76 

st** t  nr  segment 

* 
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L  14*14  30*L440,l460#L490,L:»UO*i510*L520*l530*L640*l600*L610*L620* 

ooa/booo 

0000 

L550#1.66  3*L65O,l6  70,L700»1'70*lM0,lOJ 

ooafqooo 

ooou 

SWITCH  SWG0UL261  *L263*l265*L2ft7*L269*L?7l  *L?73*L2  75* 

coaboooo 

oooo 

SWITCH  SWGn2*L4b0*L490#L50U*L5l0*l5?0,l530*L540,L600,L6 !0*L620J 

00«n (000 

0007 

COMMENT  SUBROUTINE  ANSWERS 

00462000 

0016 

JFNHMAX* JNMM4 X) 

00463000 

0016 

JfbRnuP*JNGROUPf 

00464000 

001/ 

j.jao«ax*jnumax*jna2AJ 

00465000 

0016 

JLSYOM4XRM  1 

00466000 

ooiv 

JJM  1 

00467000 

0U21 

00  fcFGl* 

00»660O0 

0021 

jimj 

00469000 

0021 

UO  PFG1N 

00490000 

0022 

JK*1  1 

0049J0O0 

0072 

DU  BEGIN 

0049?000 

0023 

SVFllIXl  JK»JI  ,  JjUSVrLUXf  JK,  J(  #  JJl/JfNMHAXI 

00493000 

OU23 

SVFLUXC  JK*  jtsT*JJHSVHUXf  JK,JIST*  JJl^SVf  LUX(  JK,JI*  JJJI 

00494000 

002b 

SVTFLUXf  J  1*  JJ  j*SVTrLuM  Jl*  JJ)»5VFLUXT  JK*  JI,  JJ  J  | 

00495000 

0035 

FNO  UNTIL  ( JW*( JK*1 >;>JNPA> 

00496000 

0040 

SVTHU*(  JIST*  JjWSVTFL  J«t  J'„  *T»  J  J)«  SVTFlUXf 

00497000 

0042 

SVI1RKC 

O04O600O 

0047 

FND  UNTIL  <  Jl*(  jlM  ))>jH4x*<  ENO  UNTIL  (  jj»<  jj4  1  )  )>  jjADmAXJ 

00499000 

004(1 

JJM  1 

00500000 

0053 

00  PEG1H  _ 

00501000 

0054 

JMM  » 

00502000 

0054 

UO  BFGIN 

00503000 

0054 

SVFLUOt  JH»  JJI*SVFLIJ0I  JH#  JJ  J/jFNMMAXf 

00504000 

0054 

SVFLUR!  JJ)*SVFLURC  JJ)»^VFLUO{  JH,jjU 

00505000 

005b 

END  UNTIL  ( JM*( JM*1  >  )>JNHH«XI 

CU506000 

0061 

SVRrLUXI  JJ  USVRFLUXf  JJI/JF  NMHAXI 

00507000 

0063 

00506000 

0065 

UO  begin 

00509000 

0066 

00910000 

0066 

F*0  uMIl  c  Jl#(  JIM  ))>J“A|N  ENO  UMlL  t  Jj*(  JJ*1  ))>JNt)M*lC 

00911000 

0069 

C'J"*fNT  SUKROUTlNt  RfSulTI 

00912000 

007  A 

•KitrcPHiMtPAOU  )i 

00913000 

00  7  A 

0091 AOOO 

OC  7  7 

nmitfcpmint  ,ni?o)i 

00919000 

0001 

•  MU  c  Pint  MT  »|  Lt  J0»L1ST?)| 

00916000 

000  A 

**<  !  ?f  (PM  |KT,n  1  J9*l  1ST  !)l 

00917000 

0006 

i»  jNhSTOP*o  thin  r,u  10  l « # 

00910000 

009? 

•  M Tf (PNINT ,f t  t  SO  )  1 

00919000 

0093 

NHi ir(PNjNT,rL  1*0)1 

00920000 

0097 

•  Kin  (F»H!NT#ri  tTM|SU)l 

00921 000 

0]00 

I9v«l  jNfU/KT^OI 

00922000 

OlOA 

JJMI 

00923000 

OlOb 

DU  RfGfM 

OO92A0OO 

0106 

SVCCA/Af jj)»9VC£7At JJ)  End  UNTIl  < jj*C jj*1 > >> jn*?AI 

0092T  000 

0106 

JNA JA0*J*A JAJ 

00**6000 

0**0 

LIBOI  JJ»I< 

00927000 

on  i 

00  BF G l N 

00929000 

out 

JJAOM  JJ«1 )*JMJA0I 

00929000 

0111 

JC *1 *U»0I 

00930000 

0113 

JIAOO  1 

00931000 

Oil* 

00  HfltlN 
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01067000 

0061 

Jmhqa» JMH0A«1 i 

010ft  JOOO 

0065 

GO  TO  10 J 

OlOfrAOOG 

0066 

L  loot  JCSANGH  »JPN  |»  (SVPH*Nlt(  1  $  JNCM  ]-l  )  | 

01065000 

0066 

GO  TO  LI  701 

010*6000 

0071 

11101  Jf 1  * 01 1 

OJ067UOO 

00 7  l 

JC  SANG* SVPHANGl J1 , JNC M )♦  (  JMN 1 • JF 1 ) ■ ( SVP* ANG { j 1 ♦ | , jNC M J *SVPM ANG ( J I # 

01 0*6000 

0077 

01069000 

0077 

t  l?Ot  J6SANG*SQHT(1 «jC SANG* jC SANG)) 

01070000 

00  7  V 

mot  snpanhac jiras?» j«n) j 

0107 jooo 

00«1 

JC  UPf  1*7*JHN! 

0107 7000 

006  J 

snh*noa( jipasj* jnn ) 1 

01073000 

OOM 

JS  1 1 P *  1 •?*  JPN  I 

0107*0)0 

0065 

J0lllM*JCTEP*7*  JSTEP*?J 

01075000 

0067 

IF  jOfnM>l  1  Ml  N  GO  TO  L 1  301 

O1O76C00 

006V 

jntO“*SM«T( JDtOM)| 

J1077000 

0091 

JCUPMl* JCTFP/JOt OMI 

01076000 

309? 

jSl)PM)»jSTFh  '  JULOMI 

01O79000 

O09J 

IF  JS1TH?>JSMV  THEN  r,n  TU  LI3M 

oio«oooc 

0095 

JC0TM1*.  JCSANGBJCOTM?) 

01061000 

0096 

JS l Tni ♦ JSSANGI 

01007000 

0097 

JCHhU^JCOPhI  1 

0106 JOOO 

0096 

JSMm11*JS0PmII 

01 OAAOOO 

0099 

jcpipm:»jcopmii 

oneAioo 

009V 

jsniPMi^jSDPNi i 

0 1  00 A  200 

0100 

GO  10  11501 

01065000 

0101 

11 36 1  JC0TH1* jCUTH?* JCSANG* JS1 Th?* jSSANGnjCDPHI | 

01066000 

OlOA 
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JS1 TH1*SQ*TC 1»JCOTh1«JCOTH1 >1 
jSOtFMt*( J5S*NG*JS0PM| ) / JS *  I w 1 1 

JCOt^Ml*( JCS*NG-JCnTH2* JCO! Hi )/( JS 1 T M2* JS  t T H 1 > | 

jCPHf 1* jCPHfb* jCOEPM1«jsPHW*jSOCPH! I 
JS^M? :♦ JCOE’Ht* JCPH12* JSOCPH1 I 
llSOl 

JCARMU*JC*PMll 

JSAPmU*JSARm1» 

JC*PM  *JC*PM1 j«jCOFPHl-jS*P«l 1* JSOFPM1I 
JS*PM1* jSAPMllMJCOf PM  r ♦ jc AHHllMjSOCPHl J 
11371  JCAIM?*  jCIlTMl  I 

jmtm2*jsitp;  i 
jcph??*jcpkh  i 
jsPH[?*jsPMn» 

JL  uc  *>»0 1 

1*  j  Ol'M’SO  THt*  GO  TO  1.01 
WhrU(PhlfcT,rLl39#LrST?)J 

loi  r  nu i 

PHUCFOUMf  smohiam; 

«»  GIN 

iMlfifclt  JJ*  JJ21  RtAL  JWOI 

FflMMAT  Hue  MS  IS  6RFATF*  TH  A  HVINAM), 

ri?30("  RAOlATIU*  RtSFAMCM  A  SSOC  I  A  Tl  S  -L1TF-  PRn*LFM«#  110)  » 
Fl?An(/**  OfHFCT  R  t  am  ll&MT  lNTtRStTlFS"// 

"  OfTfCinx  ilfHFCT  t*Tf.NS!TV«)» 

H250(/"  "»l*»kft*S',»m«3)J 

LIST  1  TST1C JNPMURJI 
L  f  &  T  l 1 ST7C JJ»SVOHFLUKf JJJII 


01007000  0106 

O1O0POOO  0}09 

01009000  0111 

01090000  0113 

01091000  Oil* 

0 109 1 500  0110 

01092000  0119 

01093000  0119 

0109A000  0 i 20 

01090000  0122 

0 l 09ft 000  0 l ?b 

0,097000  OWb 

OlOVftOOO  0126 

01099000  0127 

OllOOOOO  0126 

OuOiOOO  0120 

Ol 102000  0130 

01103000  0133 

0032  IS  013V  LONG*  Nt*T  SK.  0007 
0110A000  03 1  * 

01105000  011  A 

031* 

STAmt  OF  SFGMtNT  ••••••••••  003A 

">*  01110000  0000 

STAhT  OF  SFOMLnT  •••••*••••  0035 


01111000 

0000 

01 112000 

OOCO 

01113000 

OOOu 

0000 

003b  IS  OOA9  LONG*  NffcT  St  ft  003* 
01115000  0000 


01116000 


0005 
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L«*EL  L3.L100#L2|0,l0I 
CUHRENT  SU8H0UT INC  OBE*  Ml 
JJ2*2| 

00  BEGIN 

lr  JHS5SVHVI JJ?J  THIN  GO  10  LJI 
tNO  UNTI!.  IJJ2*|JJ2*1  ))>JNOh> 

NNITEIPRINT.nil  )| 

GO  TO  LOI 
LJI 

JJMTRJJ2I 
JJ*1 1 
00  BEGIN 

JVfltSIIMOf  JJI-JmSi 
JT»SOHT( JV0«2»SVH0I JJ)*i >> 

JCOTNtjvO/JTI 

IF  »AS|JCOTh)>jSmV»L  The"1  GO  TO  L100I 

JRMOTtjTutSVUUt  jjHTl-SVUUT  JJHBD/ISVHVC  jjKTI-SVHVI  jjM8))» 
00  TO  12101 

Lino  I  JRMOTH!.VHUMn|j,j]-jT»UM)/JCOTHI 

L2I0I  SVDBFLl' F|Jj)*5VDBSjIJj1*EXP("JHH((T)/jt#2I 

LNO  UNTIL  ( JJ*( jj»i ) ), jhuk«x< 

NNI TE(PH|NTIP»Gl 1)| 

NRITECPH|NT,Fl2J0,lIST!)I 
"RITECPRINT#FL2A0)I 
JJ* I  < 

DU  BEGIN 

"HITE (PRINT •FLBbO.L I5T2)I 
LNO  UNTIL  (  JJ»(  Jj»l  )  }>  JNlJM*  XI 
"R1TE(PR1NT[P«GE ))) 

J"HO**JNMO«#  II 
L0>  FNOI 


0111 2000 

00  !  if 

otiioooo 

00!  2 

oiiioooo 

0012 

01120000 

001  J 

01121000 

0013 

0| i 22000 

OOM 

01123000 

00!  ? 

0112*000 

0020 

0 | 125000 

oon 

01126000 

0022 

01 12X000 

0023 

0 | 1 26000 

0023 

01 12POOO 

0023 

01130000 

002b 

01 1 31000 

0020 

011  32000 

002V 

01 1 33000 

0031 

0!|3*000 

0035 

011  35000 

00  3? 

011  36000 

003V 

011  3X000 

00*3 

01  1  36000 

00*5 

01130000 

0040 

011*0000 

0052 

011*1000 

0055 

0! !*?000 

0050 

011*3000 

0050 

01 1*«000 

0000 

01 1  R6000 

0061’ 

011*6000 

0005 

ouxxooo 

000? 

oo3»  is  oon  long#  next  sec  ooot 


’t 
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NKUCC0U*C  SNCMCCkJ 

011*6000 

03  1  * 

BEGIN 

01 1 A9000 

031* 

integer 

jl 1 . jlNAG.jlNPA.jlNRCOL.jl NRFI.jTNRFP.jInKF >  JJCMECH. JJCMFCr. 

95  ?00  0 

031* 

JJ.JNHF  1 . JNRF  ?  »  JNH.  3 . JNNF . JN A  0  |  , JNP A | , JNPCOL 1  1 

953000 

0000 

EUkMaT  fl2S<"  I«E  NllMnfN  UE  REFLECTION  BOUNORlE S* . I  3. 

01158000 

0000 

STAhT 

OF  SEGMENT 

*  HCFEflS  THE  LIMIT  or  S  ALLOMEO*.".nATA  CHECK  CONTINUES. »•"). 

0  1 1590CO 

ooou 

Ft «5<* 

TMf  NUHh[ R  UF  0£TFtlONS".13."  E»C£EOS  TME  LIMIT  OF  10  ALLO»En*» 

01160000 

oooo 

".OATA 

CMFCK  CONTINUES. .."># 

01161000 

oooo 

*l65<" 

THE  NUMMFR  OF  HJTFM1ALS*.13."  EXCEEDS  TME  LIMIT  OF  10  »LLU«FO*» 

ol  l»?OCO 

oooo 

".DATA 

CMECK  CUNT1NUES..."). 

01163000 

ooou 

first" 

TMf  NUMBER  OF  PNlNi  CpLl 1S10NS"# 13# 

0  1  16A000 

oooo 

’  FJCFEOS  TMF  LIMIT  of  ?A  ALL'>m£0".*.0A’A  CHECK  CON  I INUE &...») » 

01165000 

oooo 

FL10S<" 

TMF  NUHRER  OF  PRINi  ANGLE$"#13# 

011»«U00 

oooo 

”  EXCEEDS  IH[  UMTT  OF  2S  ALi Omeo*»".OATA  CMEtK  CONT  INUES.  •  •  *  >» 

01167000 

oooo 

Ft  12S{ * 

TME  nUmRER  UF  SOURCE  *nGlES-,IJ. 

01166000 

oooo 

"  FXCFEOS  T«t  LIMIT  OF  37  ALLUMf  0"  .".(>»  T  A  CMECK  CONJ INUF S- • • " > » 

OllANClOO 

ooou 

FL 1*5(" 

TME  NUHRER  OF  RFG 1UNS" . I  A,"  EXCEEDS  THE  LIMIT  UF  1U0  ALLO«EO". 

OIIFOOOO 

ooco 

".OATA 

CMFCK  CUNT1N0ES. . ••)* 

0 1 1  7  1000 

oooo 

Ft  165( " 

TMF  NUMRER  OF  H0UNON IE $"» 1  •  # 

011)2000 

ooou 

«  FXCEEDS  TmL  LJMJT  OF  1JU  HLnNEn«,».OAT*  CMFCK  continues..."). 

01173000 

oooo 

fi  i8o<* 

cosine  so"rce  anGlas  must  rf  Input  in  descending  o«oer*. 

OIITAOOO 

oooo 

".PATA 

CMFCK  CUNT1NUES, . . "># 

01175000 

oooo 

H2|$C - 

cnsiNF  print  anglls  must  rf  input  in  oescenoing  onoer*. 

01176000 

oooo 

".OATA 

CMFCK  CONTINUES,.."). 

01J77000 

oooo 

Fl?3S<" 

reflection  angles  must  me  input  in  oescenoing  oroer*. 

OM  76000 

oooo 

".OATA 

CMFCK  CONTINUES...")# 

01179000 

oooo 

FL270<" 

reflection  cosine*  must  re  input  in  oescfnoing  orolr*. 

01160000 

oooo 

"•OATA 

CMFCK  CUNTTNUES,.."). 

01161000 

oooo 

FL31SE" 

OIFFEMENMAL  COSINIS  MUST  he  input  in  OESCENOING  OROEN". 

01162C00 

oooo 

".OATA 

CMFCK  CUNTINUES,.."'. 

01 163000 

oooo 

121 


FL355(" 

PHASE 

anGlEs  must  he  Inhut  In  otscenOInG  itriier*. 

011  0*000 

•;?0U 

"  •  0  *  T  A 

CHECK 

CUNTINUES..."). 

01  1*3000 

ooou 

FL365C" 

angle 

pkorabili fits  • *.  re  input  in  a  see  no i ng  order". 

op  66000 

0000 

".OATA 

CHECK 

CUNTINUES...*). 

ri lrtTooo 

0000 

00  3f  is  LONG#  *EXT  SHi  003* 

stant  nr  sfument  **********  0030 
OHflflOCO  0000 

oil  09000  0000 

01190000  0000 

'  01191000  0000 

0 1 1 97000  0000 

01193000  0000 

oo3t»  is  00S6  long#  next  seg  0036 


LIST  L 1  ST  1 ( JNRELR ) 1 

01  194000 

0000 

LIST  LISTZ(JNOMAX)) 

01195000 

0005 

LIST  L1ST3(JNM«T)| 

Ol  196000 

0010 

LIST  LISTA(JNPCUD) 

0U9700C 

0015 

LIST  l 1STS(JNPA)I 

01 196000 

oc?o 

LIST  L1ST«(JN«G)I 

01199000 

0075 

LIST  L|ST)(JNRM»*)| 

oipooooo 

00  30 

LIST  HSr»(JNHM»T)l 

01701000 

0035 

LIST  LIS'ME JJCHEC*)) 

oi?o?uoo 

oo«o 

LAHEL  l3  0.l.5O,LfO,LRO.LllO»H3O,LlSO.Ll/O,l.?OO,L?ZO>L3O0,LZA0,LZBO» 

0170  3000 

00*5 

L3T0.I 3Z0.L3A0.L390.1 «?O.L«SO) 

0 1  7  .>4000 

00*5 

JJCHECK»0) 

01705000 

00*5 

ir  jnrelrss  thin  on  tu  l30» 

01706000 

0046 

NHITE(PHINT.FLZS.LISTI)) 

01707000 

00*  7 

JJCHECN»-JJCHEC«»I  I 

01706000 

0051 

l3oi  ir  jNOMAxsin  then  go  iu  lsoi 

0 1 709000 

0052 

HHlTEtPHlNT.FlAS.LISTZ)) 

01710000 

005* 

JJCHEC«»JJCHECN»1) 

01711000 

0C5« 

FL *  1 5C -  INPUT  NUMBER  OF  CULL1SS10N  MUST  0F  IN  ASCENDING  ORUtH"# 
".DATA  CMrCM  CONTINUES,,.")# 

FL«35C"  There  ARE  A  TOIAU  Of*#15#w  INPUT  DATA  ERRORS"/// 

"  AKE  PROBLEM  urr  COMPUTE*  ANU  CORRECT  ERRORS.  BETTER  LUCK  NEXT  " 
"T  1  Mf  ")# 

r'L*55C*  INPUT  UATA  SFEmS  Tu  BE  AllRlSMT,  EXECUTION  C OnT 1 NUC S . « ) J 


lsoi  ir  jnmatsio  Then  go  tu  lfoi 


01217000 


0059 


Ij. 
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»Mtr  {»»iNt.ri»»»uST3)i 

0171)000 

0061 

JJCMEC**.!.IChECKMI 

01214000 

006k 

L  TO  1  If  JN<>C0LS2«  then  00  III  0«m 

0 1 715000 

0066 

»NITf<PN|NT»fLI'5<L|ST«il 

01716000 

0066 

JJCHECK*  JJCMCCKM  1 

oiPirooo 

007? 

L90I  If  JNPMPk  THf  N  60  TO  L110I 

01716000 

0073 

•  ►iTrtPIMNT.flHlJ.HiHII 

01719000 

0075 

JjCHf C«»JJCHEC«*I 1 

01770000 

0079 

L 1 1 n ,  If  JN6G13T  | Mf  N  60  TU  L 1 301 

01771000 

0060 

MNHE(PH)MT»fLl?«i<L|ST*ll 

01777000 

006? 

JJCMECf*JJCMEClT| 1 

0177)000 

0066 

01301  If  100  THEN  G'J  TO  LliOl 

01774000 

0087 

MMITHPHIMT.f  LHVl  1STMI 

0  1  775000 

00*9 

JJCmEC«*JJChECNM  1 

01770000 

0093 

lisoi  if  jNP«»»iion  them  gu  to  ». i fei 

01777000 

0094 

NliITr(PR|NT»rit65»LIST»i» 

01776000 

0096 

JjCMfC«»JJCMECP«|l 

01729000 

0)00 

J|N»G»JM»0*l 1 

01730000 

0|0l 

II'OI  JJ*)I 

01731000 

0|02 

DO  REGIN 

01737000 

0|03 

If  SVCPNGUJltSyfANGC  JJ«t  J  TMf N  nn  TO  17001 

01733000 

0103 

PRlTETPPlMTifUaoil 

01734000 

0 1  06 

JjrMFC«*JJCMiCP*l 1 

01735000 

0|0V 

L  POO  1  INO  UNTIL  (  JJK  JJ»I  )  )>J|N»GI 

0 17  36000 

0110 

JlNP»*jNP»-l 1 

01737000 

0113 

JJ»)I 

01230000 

0 1 1 6 

00  PEGIn 

01739000 

0115 

if  svcipae  jjn$vci7*tjj*n  then  go  to  u?o» 

01740000 

0115 

■RlTE(PN|NT*fL?l31l 

01741000 

onr 

jjCMECXpJJCMECkmi 

01747000 

01?l 

L  ??0  1  CNO  UNTIL  EJJ*tJJ*I)l>JINP»l 

01743000 

0172 

If  JNNf LNSO  THEN  Gfl  TO  L30UI 

01744000 

0175 
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JIW1  1 

012«5000 

0126 

OU  BEGIN 

01746900 

0127 

JNRF*SVN«F4NG[JI  l Jl 

0i?47000 

0  1 7  7 

JINRF*JNRF-1 J 

01740000 

0126 

JJMI 

01749000 

0129 

DP  HEGIN 

0 1 750000 

0130 

IF  SVKFANGt  JJ,  jllt>$VR>  6NGI  JJM#  Jill  THEN  GO  TO  L240J 

01251000 

0130 

KRITF(PR1NT*FL7351J 

01257000 

0134 

JjfHFCK»JJCHFiKM  I 

01,  753000 

0137 

12401  END  UNTIL  ( J J* ( J JM  )  1> J INRF 1 

01704000 

0136 

IND  UNTII  (  Jtl*(  JIUI  )1>JNRFLH| 

01755000 

0141 

JUMI 

01756000 

0143 

OP  BEGIN 

01757000 

0l«4 

JNRFl*SVNRFCUSf  JU  )l 

0175H0O0 

0144 

JINRFl* JNHF1-1 1 

01759000 

0145 

JJMI 

01760000 

0146 

DO  BEGIN 

01761000 

0147 

IF  J»VNELCUS1  JJ»Jll)iSVNHCOSt THEN  GO  TO  12601 

01767000 

0147 

WR1TF(PRINT»FL7701  J 

01263000 

0151 

JjrHfCK»jjCHECK*ll 

01764000 

0154 

L7*0I  ENr)  UNTIL  (  JJ»<  JJM  1  )>J1NRF1  J 

01765000 

0155 

t  NO  UNTIL  (  J1UC  J 1 1  ♦  1  1)>JNRFLRI 

01766000 

0156 

L  300 1  J 1 1  «■  1 1 

01767000 

0160 

DU  HFGIN 

01766000 

0161 

IF  SVRAYLEEI  Jl  1 1*1  THEN  i»U  1U  L  3701 

01769000 

0161 

JNRF74SVN0FCUSI Jl i  11 

01770000 

0163 

JI  NRF?*-JNKF2*  1 1 

0 1 2  T 1000 

0164 

JJMI 

0 1 2  77000 

0165 

UO  BEGIN 

01773000 

0166 

TF  SVOlf  COSIJJ,  Jl  1  USVUlFCOSIJjMfJI  11  TRtN  GO  TO  13201 

01774000 

0166 

NRITE(PRINt#FL315)l 

0  1 7f  500v> 

0170 

JJCHECK»JJCHECK*il 

01776000 

0173 
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l3?0t  TNO  UNTIL  ( JJ»( JJM  ) 

01777000 

0|76 

JNRn»SVNPH«NGlJl  1  )•!  | 

01770000 

0177 

JJ*II 

0 1 ?  *  9000 

0  1  76 

uo  prt-jN 

01780000 

0 1  7  V 

|f  <VP««Nf»lJJ,  JU)>SVPN4NG1  JJM ,  J1  n  T*£N  GO  TO  LJ<SO» 

Ol?0l  ooo 

01  79 

«Hirr<pRiNT»rim>i 

Ol?0?OOO 

0  1  «3 

JjCWrC«»JjCHECn*TI 

01703000 

rise 

L3AO|  l NO  UNTIL  ( JJM JJM  )  )>JNRF 31 

Ol?0«OOO 

Ol«» 

LJ70I  fNn  UNTIL  (J11»(JlW|))>JNMiT| 

01780000 

0|90 

JJM  1 

01788000 

0|93 

DO  HFG1N 

01287000 

0|96 

IF  SVPiGf JJ)JSVP#G1 JJ*|1  »W£N  GO  TO  L390* 

01780000 

Oi»« 

MR  1  TF (PRINT. FLjeSJI 

01709000 

0  J  96 

JJCMFeo  JJfHtCKM  1 

01790000 

0 1  99 

L  390 1  END  UNTIL  (JJM  JJM  >)>JINAGI 

01791000 

0701 

JiNproi *JNPC0L-1» 

o  1 797000 

0*03 

JJM  1 

01793000 

0?06 

no  HFG1N 

01798000 

0?06 

IF  SVlNCOLl  JJXSVlNCOl  1  J*M  1  THEN  GD  TD  L»?OI 

01790000 

0?06 

«MTf  (PRINTS  LM*)I 

01790000 

0707 

jjchfck*  jjcmickm i 

01797000 

0711 

1*70*  FNO  UNTIL  <  JJM  JJM  J)>J|NPCOLI 

01790000 

0717 

IF  JJCNlCRSO  THEN  P,(l  TD  LOUl 

0 1 799000 

0716 

NNITC(PN|NTCP*GU)I 

01 300000 

0716 

NH1  Tf  (  PRINT  »n«3«.#L  IS  T9)l 

01 301000 

0719 

tRNOR ( 0)1 

01307000 

0773 

L**Ot  NNlTE(?R]NT#rL*^S)l 

01303000 

077* 

t  N  |>  | 

0 1 30*000 

0776 

0030  10  0737  LONG* 

NCXt  ! 

PRUCrOUNE  0R  R# 1 N 1 

0130*000 

0316 

Rf  GIN 

01306000 

0316 

INTEGER  JJ?»  JJ*1L» 

0316 

STA.T  (IF  SEGMENT 


OOJ9 


RIAL  jPRUTin.  JFRACT) 

CORRFRT  THE  EULLONlNG  PROCEDURES  ARE  USFOI  SRI  Nl  T *L , S HSE * RCH , SR* V R»G! , 
rRANGLE»SRPATHL»SRnST0n»SRR*NOA»SRr)ET£CT,$RSCTANGI 

FORMAT  FL1K"  MS  IS  GREATER  THAN  HV(NOH).  ")# 

►L6(/»  CANNUT  LOCATE  REGION  CONTAINING  SOURCE  PARTICLE.*)* 

Ft  TOC /"  IOC  R*«lA,"  NPART  »"«1*«"  NSP  R".lA,"  NHIsT  »"»I6»"  NC"  ■*. 
1*,"  '(R»L  •*.1A/"  Hi  »"*M»ElO.J»"  "I  »"*S1,£10.3,"  COTmI  ■**S1. 

!lu.3»"  SITH1  r",S1«£10.3/"  CPH 1 1  R"«S1«£10.3»"  SPHll  ■*»Si»LI0.3, 

*  WAIT  a»,S!*E10,3>» 

FL9*(/"  LOC  »"«!*,"  NCR  »"»1A»"  NCM  R",lj,"  R  ■",  S l ,£ JO . J» "  H  •",$!» 

£10,3/*  cotm  »". si, iio.i,"  siTh  »",si,eio.3,"  cifm  »*»si»eio.3, 

"  S  PH  1  >",S1,E10.3), 

FL10S1/"  A  NEGATIVE  OR  2ERU  PATH  LENGTH  NAS  GLN£RATEO,  Pl*"» SI » l 1 0* 3) , 
FU3ISC/"  RRnGRAM  FAtLEn  to  CALCULATE  oISTANCe  TO  A  BOUNDARY, •>, 

FL  1  API  /"  LOC  ■" ,  I A  ,  *  NCR  »’,1*.-"  NCR  »"»!*,"  T  >",$t,Ft0.3, 

"  SUHOST  »’,Sl,El0.3/"  01 sT  “",S1,E10.3,"  RHOT  $1 ,E 10. 3,"  01  r», 

SI.E10.3,"  MT  R",St»E 10. 1/"  RHU  »",S1.EI0,3>"  NCM  r"»1*,"  NLM  •",!*> 

, 

FL1AT(/"  LOC  ■", 1  A, "  NCM  ■ "# 1  A , "  NLM  R",l*,"  H  R", S 1 »E 1 9 . 3, "  TS 
S1.E10.1/"  RT  "",51, CIO. 3,"  CPH 1  »",Sl.EIO. 3,"  R  »" , Si  *T  10 . 3 ) , 
FLITT1/"  CANNOT  find  REGION  CONTAINING  PARTJCLE  COORO  INATE  5,  HR", SI, 
E10.3,"  Rr" ,  SI , E 1 0, 3) , 

FL76AE /"  LOC  1A,"  NCR!  »",!A,"  NCR?  r",]A,«  GIST  R",S1,E10,3, 

"  OT  »",S1,F10,3/"  T  R",S1 »El0.3,"  5UM0ST  SI ,E 1 0. 3,"  M2  »*,S1, 

E  10 , 3,"  TS  »’»Sl.ElO,3.'"  «T  ,  S  1  .E  10 , 3,"  CPhI?  ■•#»!#*  10,3,"  Hp  R», 
SI, £10. 3,"  S PH  1 p  r",S1»E10.3/"  COTH?  «",S1,E10,3,"  SITh?  S 1 , E 10, 3, 

"  NCOL  »",!*)» 

LIST  L1STKJL0C,  JNPART,JNSM,JNIIIST,JNCR,JNC0L,JH1,JR1,  JC0TH1,JS1TM1, 
JCPMM  .JSPHU  ,JNA[T)I 


0000 

01371000  0000 

01377000  OuOO 

01373000  0000 

START  OF  SEGMENT  ••••*•••••  OOAO 


01 32*000 

nooo 

01  1?S00« 

ooou 

0 l 3?AOOO 

ooou 

013?7000 

ooou 

OOOU 

0 1 3?900O 

0000 

on  50000 

0000 

ooou 

01 J3?000 

0000 

0133300O 

0000 

0 1 33*000 

0000 

01  33*1000 

ooou 

0133AOOO 

0000 

01337000 

ooou 

01 33*000 

0000 

01339000 

0000 

01 3*0000 

0000 

0000 

0  1 3*?000 

0000 

01 3*3000 

oooo 

01 3**000 

0000 

on*5ooo 

0000 

Cl3*f-000 

ooou 

00*0  IS  0269  LUNG,  NEXT  SEG  0039 
013A7000  0000 

013*6000  001* 
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List  L 1 SS21 JLOC  .JflfK,  JCOTH,J$tTH,JC^NI,JSPHm 

013*9000 

00?0 

LlSt  LtSn<J*L>t 

OI1SOOOO 

OOlS 

LISt  l  tSt«(,llOC»JN(;»»jNc»»  Jl  •  JStIH pSt  >  JOl St »  J* HOI »  Jot  »  JNt  >  JM HO#  J»i £*» 

013)1000 

00*0 

0 1 142000 

0044 

L  1ST  LlSfSC  JLOC#  JNC***  JNL*»»  JUT*  JCPhWJ*)) 

011*1000 

004» 

List  LtST«(JM>JH)l 

0| 146000 

00  tl 

LISt  L ISTt( JLUC.JNCH1# JNCHi. JOlSt.JPT.Jt, JSUH0S1» JCFH|2» 

ojmooo 

0060 

J«?  ,  jS  l>*  1  2  ,  JC  Ul  H?  ,  JS  1 1 H?  #  JNC  OL  )  1 

011**000 

0064 

B*  GIN 

01 137000 

010* 

L  ml  L  1.L2.L6.1  1*0. L  t  »L  10.L60.L10.1  60. L  1 00  , L  )  lO. L  1  30 . 1  1  «0 , L  1  •  « .  L  2SO , 

Ojdbooo 

0(06 

or  segmen t  ♦ 

LSSO,L»'IO.LlV>.L|t(l,LlAflfl»Ll»S,L  t*t.LI»*»L?M>.Ll«0»LI»#»Lll0,L?.,f  * 

0H*9«00 

0000 

l 24«UZ»6.1120.|  0,LI«00I 

013*0000 

0000 

S«1  tCN  S6&01U  1*4.1  t»4.L  1 'LL  |6tl 

01361000 

0000 

CUHHENT  SL'MHOHI  |Nf  6MM PLSNf  )  1 

0 1 16*000 

0004 

JNK»Rt*JNMM»x  OlV  JNCHOu^l 

Ol 161000 

0004 

JNSP*JNP*MTm> 

0| 36*000 

0007 

JNMJST^OI 

OI36SOOO 

0006 

JNUtVf.»Ol 

01366000 

OOOT 

SH|fn  |  TALI 

01367000 

0010 

jMPRf  g*- JNSHRCGI 

01360000 

ooto 

JNHOI^OI 

01369000 

0011 

01370000 

0012 

JN*0> 

oi  imooo 

0012 

01 37JOOO 

0011 

OC*  BEGIN 

01 373000 

001* 

ir  («6R»(jHS-SVHVt  jj21))«i>  T«fN  6(1  IP  Ll  'isr  if  »r*>o  tMEN  60  to 

OtlMOOO 

oot* 

L?l 

0 I 375000 

0017 

LNO  UNTIL  (JJ2MJJ2M))>J60HI 

01370000 

0016 

HHlTE(PHlNT»ri!l )l 

0*177000 

0020 

Gn  io  i oi 

01 176000 

002  J 

Lll  Jt»UM»SVT*UI  JJ2-I  t*tSV  >*UI  Jj2  l-SVUUI  JJ2-I  >>■!  JHS-SVHVt  JJ2-I  )>/<SVNV 

01179000 

002* 

00*1 
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c  jj?  s*ftVMV  r  jj?-u)i 

0 1  300000 

00?9 

Gii  Tn  101 

01)01000 

003? 

L?»  JTAUH*SVTAU[ JJ*)I 

0l)p?000 

003? 

tpi  jFRH0R5*J>iM0 A) 

01 30)000 

003* 

SHit AUChf 

01  30*000 

003* 

| F  JF«RURS<JNHU*  TMf N  r.U  TO  L3*OI 

01)05000 

003* 

(F  JNCfl»jN5n«tG  Trt£N  GO  TO  iFI 

01  306000 

00.36 

nKITf <PR1NT#FL6)I 

01  30FOOO 

00  3  F 

GU  TO  LOI 

01 300000 

0041 

LM  j*m+oi 

01)09000 

00*1 

I.JOt  IF  ( XPR»( JNPAflT -jn$P> l>0  T  M  E  fc  (in  Tn  l?0  El.SF  IF  XPtfcO  lHtN  GO  Tn 

01390000 

ro*? 

I.60T 

01 3vi 000 

00A6 

swAVPAr.t  r 

01 39POOO 

00*6 

1  f  J*H1ST<JnmmA*  Th(N  Gii  To  L60| 

01)93000 

00*  F 

r.n  m  loi 

0 1  39*000 

00*0 

LM'»  srangici 

0 1  395000 

00*0 

IF  JF«BOrS<J«HUA  T  Mk  n  go  TO  L3*OI 

01396000 

oo«v 

JNbP»OI 

01 39F000 

0050 

L  TO  »  JNh1ST*JNM1ST*1 1 

01 390000 

0051 

jNNfFL»tl 

01399000 

0053 

jtucooi 

01*00000 

005* 

JNJ»P»  jnspm  i 

01*01000 

005* 

JHI 4-01 

01«0?C00 

0056 

jTAUR?»wTAOHI 

01*03000 

0056 

jhUJHSJ 

01*0*000 

005  F 

JNC  JNSORF  <j 1 

01*05000 

0056 

jCOTMUSVSANGf  JNSPJI 

01*06000 

0059 

jSITHJ»SORT(|«jCnTHl»JCOTMl)l 

01 *07000 

0060 

oCHHiun 

01*00000 

006? 

JSHHI 1 ♦©! 

0 1*119000 

0063 

JWA\USV»f  IGHTI  JKSP1I 

01*10000 

0064 

JCAPM1MI 

01*11000 

0065 
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JSMmUOI 

01* 12000 

0065 

JNCOL*' * 

01*13000 

0066 

ir  JIDUMjO  THIN  tn  TO  1*01 

01616000 

00*7 

0*!TC (FH|NT#rL7A*LlSTI  )l 

01*1 5000 

0060 

1*01  JLOC*?Ol 

01*16000 

0072 

j**j*i  i 

0161 7000 

OOF  3 

JM* I  | 

oi*inooo 

00  F  6 

Jfir 1  l*OI 

01619000 

0075 

JT»Um|*JUUm2» 

0 1 6  ? 0000 

0076 

jcutm* jcotmi > 

01*21000 

0076 

J5ITW*  JSMm|  » 

01622090 

0077 

JCPMUJCRMI  |l 

01623000 

0070 

J^Ml*jS*Hl  1  » 

01626000 

0079 

JfcCRI* JKCHI 

01625000 

0079 

J»)CM»SVN«Tr  JMCMJI 

01 626000 

oooo 

IF  JTOUHPSO  1»lh  cn  TO  ITOUI 

01627000 

0C«1 

HHlTF(RNlMT»FL«««LlST?)| 

Cl  62*000 

0002 

L10OI  SMP*THL» 

01679000 

0006 

IF  JCHRURSOKMUA  THEN  RO  TU  13601 

01630000 

00*7 

* F  JPL>0  THFN  f»U  TO  Ll  101 

01631000 

0000 

■  H|Tf  (FHlNT#Fll06»ltST3)l 

0| 632000 

0090 

JtoHfU*  J6MQ6M  1 

01633000 

0093 

GO  TO  L  3*0 1 

01636000 

0095 

1110*  JT*J*ll 

01635000 

00<*7 

JRM0T*0» 

01636000 

0097 

JO  T  *0 1 

016  37000 

0090 

jSUMDST »0 1 

0163*000 

0099 

01639000 

01  00 

LI30I  5H05T HOI 

01660000 

0100 

11  JF NftO*S< JMHU6  TMfN  CO  TU  13*01 

01661000 

0101 

IF  JNC**0  TMfN  UO  TO  l|*OI 

C16670U0 

0102 

*H|TC(PH1NT#FLI 36)1 

0*613000 

0106 
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GD  TO  101 

01  *0*000 

0107 

llflO!  JM!*OST*JJ>UMO$T*JI)!SU 

01 445000 

0106 

jiuc*5o; 

0 1  4460C0 

OlOV 

If  JTDUNPSO  THIN  GO  TO  UMI 

01447000 

0110 

HH1TE(PMJNT*  Fi  H?,tlST*)l 

01446000 

011  1 

llMl  IF  JSU“OST2JT  THEN  GU  i0  l?50l 

0  1  440000 

0115 

JNCM*SVMATt  JNCH )J 

01450000 

0116 

JH^JH*JC01H*JDI STI 

01451000 

0117 

JlbtJDl ST* JSITHJ 

0 1 452000 

0119 

jwi*$urI(jh*jn*jts>«ji**?kJh"JT5>«jCphi)j 

0 1 453000 

01?0 

IF  jRT>jSMV*L  I  HE  N  GO  TO  15501 

01454000 

0125 

JC  HH I ♦ 1 1 

01455000 

0l?6 

JSPHWOJ 

01456000 

0  l  ?7 

GO  Tfl  L  6001 

01457000 

oi?e 

15501  JTS^JwkJCPhI )/JMU 

01456000 

0130 

JSPHT»JNkJ$PHI/JHT I 

01459000 

oi  3k? 

16001  JM» JRT I 

01460000 

0134 

JM.M6JNCHI 

0 1 4  M  000 

0134 

JUJO60I 

01462000 

0135 

IF  jiooMP<n  then  Gn  in  H5UI 

0U63000 

0 1  36 

HHlTF(PHTNT.FCM7#LlST5)l 

C*  664000 

Cl  37 

L  1  50  t  IF  SVNhOUNor JNCH  )20  <  HEN  GC  T  LlFOl 

01465000 

0141 

JHi?»  JH-2*JPUTA*JC0TH.< 

01466000 

0143 

01466100 

0145 

DU  REGIN 

0 1 466200 

0  i  46 

IF  UPH*(  JH?-J>VHVt  JJ?1)XW  THEN  GO  TO  118001 

01466300 

0146 

END  UNTIE  ( JJ?»( JJ?» 1 ))>JNUH| 

01466400 

0  i  49 

J J?+ JNUH t 

01466500 

0151 

JT#.UH?*SVT*U[JJ?-|  J*(SVT6UtJJ5]-SVTAU[JJ?«l  J>* 

01466600 

0152 

( JH?-SVHV[ JJ?«1 ))/( bVHVt JJ?1-SVHV{ JJ2-1 1)1 

01466700 

0154 

jh?»jr"?*j0El  ta*jsith*jcphii 

0 1 467000 

015V 

if  jNCfiM  then  r.n  to  li6uoi 

01466000 

0162 
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jhNirL*  jnre  rtMJ 

01464000 

0163 

If  THE*  GO  III  L 16001 

0  1 4  70000 

0166 

jnmaxu»jnm«irm  J 

014/1000 

0166 

GU  TO  L 10 1 

014/7000 

016/ 

11*00* 

0(4/3000 

0166 

JNHK*JNC*I 

014/4000 

0166 

JJ*ll*SV JRF FlTI JN«N)I 

014/5000 

0169 

Gil  TO  SIIP.01I  JvMLII 

014/6000 

01/0 

L ) 6 l *  JCUTH?*»j| 

014/7000 

Oi/K 

GO  TO  |  1  A A | 

014/6000 

0  1  /  6 

U*>*i  jcniM?»n 

0 1 4/9000 

01  76 

UM»  JS!TH2*0I 

01460000 

017S 

JCKH1?»JCFHM 

01461000 

0176 

JS^NT 7* J$PMl 1 

01467000 

0177 

J*MT*  J*4lT«l SVALBF001  JNCBi*S¥5l3N0Tt  JNCfO NJCOTH 1 1 

014HJ000 

0176 

GO  TO  |  7601 

01464000 

0101 

Ll/O,  jMPNrG*SV"P*l  jjl  ,J«C«  J» 

01465000 

0101 

SH&C4MCMI 

01466000 

0103 

If  jERRUNS<J*MU*  Thin  GO  TO  LJ40J 

01*6/000 

0106 

IF  JNC*>0  THE*  UO  TO  L 1  AO  1 

01466000 

OIOS 

NNlTE(PNlNT#ril  /f'MSTMJ 

01469000 

0106 

GO  TO  L 01 

01490000 

0100 

11601  JNCN?*JNCW| 

01491000 

01»1 

if  svrMPrjNCR?usvrNpr jncri i  then  go  to  u*si 

01497000 

0191 

$N«4ND4<  Jl*4S4»  JRMI 

01491000 

0193 

IF  JRNXSVFMPI  jNCN?USVtHPl  JNC«1  U  THEN  GO  TO  L310I 

01494000 

0196 

JnMT*JNMTk(  SVlMPI  JNCR1  )/^VEMP[JNCR?)W 

01495000 

3196 

GO  TO  LIAR* 

0  1  4V6000 

"19V 

L310I  SVNR1C01 JNCR? J»SvNRltUl JNCR?1*1I 

01497000 

019V 

jn«stop*jnrstop*i 1 

01*96000 

0?07 

GO  TO  1 101 

01499000 

0203 

L1A0I  JOT ♦ JU  T ♦ JO  1  $ T 1 

01500000 

0703 
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00  TO  11301 

01501000 

0205 

12501  JO  1ST ♦ JT* JOT  1 

01502000 

o?o? 

JH2*JH*JCUTK*J01$TI 

01503000 

030t 

jts*joi$t»j$ithi 

0150*000 

o?o» 

JHT»SOfill J*» JR* JT$*JT$*?*J«* JTS*jCPHI ># 

01505000 

0210 

IT  JRT>J$MV*L  THtN  GO  TO  U*7» 

01500000 

0215 

JCKH1?»1 1 

01507000 

0216 

JSPH12»0| 

01500000 

021  / 

GO  TO  1250J 

01500000 

0218 

L257  »  JCPH1?»< Jt $♦ JR* JCPH 1 ) / JftTl 

01510000 

0220 

jshh;^»jr*jsphi/jrti 

01511000 

0222 

L2SB1  JK2»JHTI 

01512000 

0224 

JCUTH2»JC0TH| 

0151 30C0 

022* 

JS1TH2*JS1TH| 

0151*000 

0225 

jrNACT*lJN2-SVNV[jjHRn/lS¥HVUjNTI-$VMVlJjH8m 

01515000 

0226 

JSw*Tl0*SVSC*TNrjJHB)MSVSi;*TRlJjHTI-SVSc*TRf  JJMR))«Jn**CT| 

01510000 

022» 

JP*TLCr»SVP*Y«l  JjHft)MSVN*rK|  JJHT  J-SVRAyfll  JJK0  )>»jFRACTJ 

01517000 

0232 

J**lT*JNAlT*J$HATin» 

01510000 

0235 

L260I  JNCK2*JNCH| 

01519000 

0236 

JLUC+70I 

01520000 

02  3  3 

JC0A7 l*JC*PHl» JCPHJ  2*JSAPHi* JSPH12I 

01521000 

0236 

JSO*?I»JS*PHl*JCPK12-JCAPH|i»JsPH12l 

01522000 

02*0 

IF  JIOUKPSO  THtN  Gfl  TO  12001 

01523000 

02*3 

WNlTElPRlNT>FL20A»ll$T7)l 

0152*000 

02** 

12001  SHOCTtCTl 

01525000 

02*0 

IF  JtHRURS<J«HU*  IkEN  GO  TU  L3«0I 

01520300 

02*8 

JNC0L»JNC01 ♦ 1 1 

01527000 

02*0 

JNOGO* JNUGO* 1 1 

01527001 

0251 

IF  JNfOLlJNCMAX  THEN  GO  TO  l320| 

«'  1520000 

0252 

JMAXCOl*JMAXCUlM» 

01529000 

0253 

GO  TO  1101 

01530000 

025* 

L  320 1 

01531000 

0255 

A 
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SMSC  T  ANU  F 

IF  Thin  go  Tm  L3*OF 

JM 1  ♦ JR?I 
JHI* JH?| 

JNCR* JNC«2» 

IF  J«All>J*CO  1H£N  f.Q  TO  1801 
A  I  T  ♦  JN*»M  I  ♦  U 

f.P  To  L  I o A 

U*0l  IF  JWnQA>JFlf*  ThfN  IiU  TO  L 0 1 
Jf  HRflF<$»  JMHlIA  I 

go  in  noi 

to  I  INI!  f  NO  I 


PNUCFMINC  ShINFUTI 

HI  GIN 

CHN  INUGfM  0*I»»X?| 

l*l«  fiFft  J 1 1  # JI2# J|J» J|6  » Jll"£C*  » JJA  Tl  •  Jl  I  SI  »  JLTS?»  J!  »  JJF 
CONMFNT  T«F  rottOMlNG  PROttOUHFS  ANF  05C0I  SNCMICKF 
FI1NHAT  HIO(MIO), 

F 1 2  jo ;  J|5»*5.2»Al5>» 
ri  »tO(AitO), 

Fl  8 1 0( 6l  I  0  >  • 

F  l  /( tf?t "FMHDUC1  OF  NAZI  ANO  NOMAX  MAS  r*f|FOfD  AO*/*?# 

*JU«  IS  H  HH  JN A  I £0*  )  » 

FI  VOM/ 

"  1 h!  MlHHfW  OF  HTSTOKItS  NAS  NOT  fOUALt*  0|Vl51Hlt  At  TmL  NUMH** 

"in  nr  of v i a t i on  groups.*/"  ihf  nuhrir  of  mimorus  mas  n'set  t  *#i6) 


01932000 

0?56 

01333000 

0?56 

0I33»I?00 

0232 

01535000 

0256 

01336000 

025V 

01332000 

0260 

01536000 

0261 

01539000 

(262 

015*0000 

0263 

015*1000 

0266 

015*2000 

0265 

013*3000 

0265 

00A1  IS  0?A?  LONG* 

"EXT  SEG 

Ou3V  |3  0110  LUNG* 

NEXl  SIG 

OI5AAOOO 

031* 

013*3000 

031* 

01550000 

031* 

0000 

0| S62U00 

0000 

0)568000 

0000 

si»«t  nr  sr uMi*n  ••♦*♦*•••• 

OJ5MOOO 

0000 

UI5F5000 

0000 

015//000 

0000 

015/6000 

0000 

0 1 5  f 9000 

oooo 

01580000 

0000 

01581000 

oooo 

0158?000 

0000 

0158 JOOO 

oooo 

0 I 583 I 00 

Oi/OO 

00  39 
OOOf 


00*2 


00*3 


riMo<?Hio,n# 


m 


Fi.tioi  jnio.f  uto.Hin,?), 

Fl  I701*N|0,7)> 

n  iio(?iio»Hio.n» 

>:  ijft(6Hio.n# 

rUMK’iio.Hto.n. 

FiV?0(/«  Input  nUmrEn  nr  m»'ErI»i.S  nnFS  not  »GbeF  "ITM  ««»!.  ■>» 

FiV50(/«  Input  number  of  ruuno»rih  wif$  nut  pgrfe  «ith  n8m*«.">» 

Fiveo*/*  INPUT  NUN  RE  R  OF  RtUlONS  THUS  NUT  4GBEE  »1  TM  NHNAX » **)  # 

Fl  10in</“  INPUT  nunnfn  nF  olIFCTIIHs  miES  nut  pgrfe  »itr  non*«."I» 

FIIP«0(/”  iNPUt  nU  h^F  P  llF  p«1Nt  C|iUIM()n4  Onts  n»T  AGREE  kith  NPC  t;L . "  > » 

Fiinrp(/«  input  number  i>f  print  cosines  not  s  not  agree  nItm  npa.*>» 

FiPnont/ 

•  INPUt  NUMBER  (IF  REFLECTION  NmiNUARTES  Onl  S  IN  D I  AGREE  nJI*  NHf L"»"P* "> 

9 

ri?njo</"  input  souhce  angu  optiun  nnrs  not  agree  pith  naup.*)# 
rii'060</*  input  numhfr  nr  suurcf  angles  pops  nijt  agree  *itm  nag,*)# 
el  is  x "  Hntj)  is  greater  than  MV(NnN)  row  j?*  *,  i*,*,*jj 

oo*i  is 

LIST  LIST1(JLTHHAf»JI1#Jl?#.>I3#JlA)f 

1 1  ST  l  J  ST?( F  PR  um»I  STEP  1  UNTIL  JNHH  no  fSVHVinJM  J#svl  AUtimi  J#SVSCATh{ 
pm j#svhAvHirm  1  j>i 

LIST  L ISTSf SVNUTCOSI J1 1 ) # SVNPMANGI J! 1 ) » SVfl A VLf 1 1 J 1 1 1 ] J 
LIST  1 1  ST*  (  f  IIH  D*W1  STf.P  1  UNTIL  JIT51  PO  SVO 1  F  COS  I  OX  1 #  J 1 1  1)1 

LIST  ITSTVFnR  IIXUI  STEP  l  UNTIL  JLlSl  00  SVPOCnSf  0X1 9  JIIJ 

LIST  IISTA(F0H  0X14.]  STEP  »  UNT)L  JlJS?  00  S VP HANOI  OX  1  #  J 1 1  1  >• 

LIST  LTSTT(FOH  0X]4l  STFP  1  UNTIL  JII  no  ISVNHOUNDIDXI l#SViTVPE 10X1), SVC 

nmnm  jj>i 

LIST  LISTH(FOH  0*1*1  STEP  1  UNTIL  JI?  00  I S VNHEGI UX I ] , 5 VN HI UX 1 J 9  S V* a T  I 
DXI 5»SVEHPI0X1J»E0H  Ox?*1  STEP  I  UNTIL  «  00  I SV !«Jf Ox? #l)Xl  J 9 SVNPRI OX?# 

OXI)]))| 

LIST  L I ST9 ( F  OH  0*1*1  STEP  1  UNTIL  Jll  00  1 SVHOf 0 XI I 9 SVHUI U X I J 9 S V  A /U l n X 1) 

#$vnpmioioxij,$vobsmoxi  1))l 


01***000 
m  6KSOPO 
01**6000 
015*7000 
ui  smooo 
OJSnQOOO 

ni  voouo 
01  %.v1  OOO 
oisvpoon 
nnvioor 

01SVA00O 
OISVSCOO 
0?J>*>  LONG# 
OtSQAOUO 
01SV7UOO 
0J  5VP000 
01S99000 
0 1 60OOOO 
uiftuinoo 
01 AOPOUO 
01  *«1300U 
0100*000 
01  AOSOOO 

01 606000 

01607000 

0160*000 

01609000 


roou 

0000 

ooou 

rooc 

ooou 

ocoo 

0000 

0000 

0000 

ouoo 

0000 

OCOu 

ouoo 

0000 

0000 

ooou 

0000 

SEAT  Sir,  00 A? 
0000 
0010 
0016 
00?* 

00  3  i 
00*i 
005i 
0063 
006V 
00  7b 
00*1 
0006 
009  7 
OlOJ 


0  I  ft  I  000  0  0112 


List  LISTIOirUN  0X1*1  STEP  1  UNTIL  J|1  00  5V INCOL IOX 1  )  ) I 

List  L 1ST  1 1  trow  OK  1 • I  S1CP  1  UNTIL  JI2  00  SVC  IT*! OX  I  1 ) 1 

LIS1  l  I  ST l?<  T ON  011*1  StCP  I  UNTIL  JN»T»  OU  S  VC  «2  »(  0  X I  I  >  I 

LIST  LISTI  J(SV*L*C001  Jlll.SvSIGNDTIJM  1)1 
list  iistutruN  oxi»i  step  i  until  ji a  oo  sv*r*NBinx!,jii m 

list  ListntruN  nxi.i  stcp  i  until  jis  oo  svportoxi »jii >w 

list  ustifttruH  o*i*i  step  i  until  ji*  oo  svxrLCOSiuxi.jn m 

List  ustittruK  oxi*i  step  i  until  ji?  no  svcans t ox 1 1 > i 

List  LISTIftirUK  0X1*1  STCP  1  until  Ji 2  00  SVPftOt OX  I  1 1 1 

LIST  lISTIftlFUN  nxi.i  STfP  I  UNTIL  Ji?  00  SVK»0I0*I1)| 

LIST  LlST20(T0K  0X1*1  STCP  I  UNTIL  U13  00  SVS*2fttOXl 1 )l 

LIST  LISTPKroK  0*1*1  STEP  1  UNTIL  J13  00  SVP62 »( OX  1 1  )  I 

LIST  LIST7?(JHS.JOLONC.jOfLl*iJSNVtL>JVCO.JiLIM»JONIN,rOX 

J  t  NDt  X  I  *  I  STEP  1  UNTIL  I  UU  SVtl JlNUCXl 111 
LIST  L I5T?3( JNMMXx.JNGPnuP.JNNNXX.jNNNtl.JNCNftXr JNONftX.JNPft. JNPCOL. 

JNXOP, JN»G, JNKf LB, JNN»T.JNSOKtO.JM»XS, JIB* SC. JIPXS1 , Ji B6S2 * Ji R* S 3 . 

JIMS*»JIR*SS1I 
LIST  l 15T2*( JNMMftxll 
LIST  LTSfPStJJII 
RLfclN 

LftHCL  I  S. L 000, L TOO, L »00. LSUO.L *00. L 300, L 200*1 1 00. L 50 . L *00*L 3000. L 1 05, 

LION.LIOT.LSOS.LSOft.LSOT.LSJO.LftlS.LI 1 1 .L*°(*L9 30 »L960 , l99C . L 1020 > 

L |030.L|0a0,L20t0,L?010,L*UC0,L208r,L3S0,L340,L3ft0,L0l 
SPItCM  5NGOl*LOOO,iT00.Lft0U.L50O.LftO0.L300.L200.L!00,LS0,LP00,L30C0l 
5KITCM  5»r,02*LS.LS»0.LS.LS*UI 
JNNft  TP*  0 1 
JNHM»*P*OI 
JNHN»XP*OI 
JNKI L  MP*  0  t 
JNOMtXP»0l 
JNPCOLP*ul 


01 M 1000 

0121 

01612000 

0130 

01613000 

0139 

01614000 

0166 

0 I 6  I  5000 

0 1 S6 

01616000 

0166 

0 I 6 I 7000 

0  1  T  6 

01616000 

0165 

016 19000 

0  I  9* 

01620000 

0203 

01621000 

0212 

0221 

0231 

01624000 

023ft 

01625000 

02*9 

01626000 

0262 

01627000 

026T 

01626000 

02T2 

0)629000 

02TT 

01630000 

02TT 

ST  APT  CF  SfOHCNT  ••••**••**  00** 
01*31000  0000 

01*32000  0300 

01*33000  0000 

0 163*000  000ft 

0I63S000  001* 

01636000  001S 

0163T000  0016 

0163(000  OOIT 

01639000  0016 

016*0000  0016 
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JNHAP^Ol 

0 1 6 A  1 000 

0019 

01 64?000 

0020 

Lit  JNOGO^O) 

0 1 6 A  3000 

0021 

RL *D(CA«0*FL10#LIST1 > IF  INI* J 1 

0 1 6A  A  000 

0021 

GO  TO  SWGOl f JLlHRAVll 

0 1 6 A  5000 

0026 

L5UI  J  Ml  H  ♦  J I  l J 

0  )  646000 

0020 

Rt  *0(CAWO»rtl70»t  IST2)lFlMbll 

0I6AF000 

0029 

GU  TO  Lit 

0  1  6  A  8000 

003A 

LIOOI  JNMATP»  JWHATPM  1 

0  |  AA  9000 

0030 

SVMAK.  RLf  JNMATP)*J1II 

01650000 

0039 

j  i  ♦  a  * 

0| ASIOOO 

00  AO 

OO  BEGIN 

01652000 

OOAI 

IF  SVMATFHLt JI N5VMATEKLI JNMATPI  THEN  GO  TO  L105I 

0| 653000 

00  A  1 

IF  JUJNMATP  THEN  GO  TO  L106t 

01 65A000 

O0A3 

L  1 05 1  FNO  UNTIL  ( Jl»( J I ♦ 1 ) )>JNMATPI 

01655000 

00A4 

GO  TO  Lion 

01656000 

00 A  F 

LlOftt  jnmatponmatp-ii 

0 1 65F000 

004  F 

L  1  OF  l  READ(CAK0*FL1 10#  LI  ST  4)1  FINISH 

01656000 

OOAV 

JllSUftVNDFCDSMini 

01659000 

0055 

JLIS?»SVNPHANG|  J!1  Jl 

01660000 

0056 

IF  SVRAVLEFt Jl | )?|  THEN  GO  10  L5I 

01661000 

005F 

REAn(CAN0»FLI30»LISTA )(FINI ill 

01662000 

0050 

Nf.  ADC  C  AND  *FL1  30*  LISTS)  IF  INI  ill 

01663000 

0C63 

Rf An(CARD*FLl J0#Ll$T6)lF IN  16)1 

CI66AOOO 

0060 

GO  TO  LSI 

01665000 

OOF  3 

L?OOI  JNBH A  XP* J I 1 1 

01666000 

OOFO 

JNKH A  X  P*  J 121 

0I66F000 

00F6 

READ(CARD#FL?IO#LlSTF)tF|MbII 

01660000 

00F9 

REA0(CAK0#FL230*LIST«):f|MS»II 

01669000 

00  6  A 

GO  TO  LSI 

0I6F0000 

0069 

LJO0I  JNOH AXP* J 1 1 1 

01  6  F  | 000 

0092 

REAO(CAKD#FL3lO*LlST9)tFlNl!»II 

016F2000 

0092 
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JJM  1 

016/J000 

0097 

00  BEGIN 

01*74000 

0096 

*9*70  1  JJl*$vA70l  jjI«.0174*»3?9  END  UNTIL  (  JJ*(  JjM  )  )  >jl  1 1 

0167*000 

0096 

GO  TO  1*1 

01*70000 

010* 

L«UOI  JNPC0LP»JI 1 J 

O1077OOO 

0 106 

JNH*P*JI?I 

0U7A000 

0106 

fti  AO<CAHO»ri«io#Li?»TiO)iri*U'.j 

0 1*79000 

0 1 07 

NLAO(CIND*rLl J0.L1ST1 1 11  FINIS Jl 

0U80000 

Oil* 

JNA/M  Jl  1J 

ouoiooo 

0117 

»M0CCAK0#rLl30#LlSTl?)ir  imsu 

oubpooo 

0110 

GO  TO  1*1 

01*03000 

0123 

15001  JNRIlHP*  jNRFlHPMJ 

01**4000 

0127 

SVJHEELT1 J1!1*J1?1 

0I*65?00 

0170 

SVNHTUt  JNRrLBPUJIil 

01***000 

0129 

Jl  *  I  1 

01007000 

0130 

on  BEGIN 

01*0*000 

0131 

IF  SVNRFPC jl USVNRFB1 jNH> L«PJ  THEN  GO  TO  1*0*1 

01*09000 

0131 

IF  JIPJNRFLBP  THEN  GO  TO  L5061 

01*90000 

0133 

L50  *1  FNO  UNTIL  {  Jt  ♦  «  j|M  >)>JN*Fl*Pl 

01  *91 000 

0134 

GO  TO  L*07l 

01*92000 

0137 

L*U0l  jnrfl«p^jnrflhp»i  1 

01*93000 

0137 

1*371  lit  ADC  CARD»fL*lO#Ll  STM  11  FINISH 

01*94000 

0139 

JJ* 1 1*  5  V JPFE  L  T(  Jl  1  11 

01*95000 

614* 

GO  TO  $*60?1  JJMl  I! 

01*96000 

0146 

l*?0»  5VNRFANG1 JUUJ11I 

0l*9F000 

0140 

MfAO(CAHO»FLlJO»LlSTMllFINIS]l 

01096000 

0149 

RE  AO'CARO^U  10*lI*Tl*)lFlNl  *)l 

01*99000 

01*4 

5VNHFC0S1  JIDOUI 

0(700000 

01*9 

HI*0(CA«0#FL1  30#L  MTU  )1F1  NISH 

01701000 

0160 

GU  TO  l* 1 

01707000 

016* 

1*00  I  jM0PP»Jttl 

01703000 

0170 

JN*GP* Jl?l 

01704000 

0170 
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JNS A? A«>  J I  31 

01705000 

0171 

Hf  *D(c«Ho#rii30#itsTtrnrtMSji 

0 1 7  060  UO 

0  l  72 

RE»O<CAHO#Fll3O,Ll3T!0)tn*lSl» 

01707000 

0177 

IF  JNAOF'PSO  THIN  GO  TO  LM** 

01700000 

0102 

RE *P(C*H0#Fl1 30#tI3Tl9) t FINIS Jl 

0  1  709000 

0103 

lM5l  RF.i0(C*HU#FU30*LlST^O)CFlNlSjl 

01710000 

0 1  00 

RE  A0(C*Hn,FL13O#L 1ST?! JtFINISJI 

01711000 

0194 

JJMI 

01712000 

0199 

OU  BEGIN 

01713000 

0199 

SVSA7*  (JJ  HSVSAZA  [  JJ)*  .01  '*53?9  pND  UNT|l  ( J  J  «•(  J  J  ♦  1 ) )  >  J  1 31 

0 1 7 1 AOOO 

0  J  99 

GO  TO  Lb  I 

01715000 

0204 

1.7001  REAt)(CAHD,FL1  30,LIST^^)tFjNlS]l 

01716000 

0211 

GU  TO  LSI 

01717000 

0216 

1600*  RF  AD(C*HL'#FL0lO#LlST<fJ>  (FJNIS1I 

01716000 

0210 

f,U  TO  LSI 

0J719000 

0223 

1900 1  JNPROIU  ji 1 1 

01720000 

0225 

Jl  U*jnA7a»jno"Axi 

01721000 

0225 

IF  J1ITS40  iMEN  GO  TO  Lilli 

01722000 

0227 

NH 1  TE (PRINT  »  F 12 ) J 

01723000 

0226 

WH1TF<PMINT,»FL?)I 

01729000 

0231 

r.HN0R(0)l 

0 1 72SOOO 

023S 

Lilli  JI0U“P*JI2I 

01720000 

0236 

J1CMECK»J13I 

01727000 

0236 

JNKART»JNHM4x  UIV  JNGROUPI 

01720000 

0237 

IF  JNHMAX«JNP*HT*JNGHnUP  THIN  GO  TU  L9O0I 

01729000 

0236 

jnhmax+jnpamt«jngrqupi 

C1730000 

02«0 

HMITi(PRINT#FL90S*L1ST?A1I 

01731000 

02A1 

L9O0I  IF  JNMATPBJNNAT  THEN  GO  TO  IV30J 

01732000 

02*5 

"H1TEiPK1NT#F1920> J 

01733000 

02*  7 

jNUGrHjNOGOM  J 

0173A0O0 

0250 

19301  IF  jNRMAXPbJNRNAX  ThLN  qU  TO  19A0J 

0173S000 

0252 

wH1TF(PR1NT#Fl9S0)I 

01736000 

0253 
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JM.'GO*JfcOGO*l  1 

0 1 7  J7000 

0256 

LV60I  V  JNHm* jlgRu4*  TMt  5  GO  TO  1900* 

01730000 

0756 

«MlTCCP«INT#ri 

01739000 

0259 

JMJGH* J  N  n  G  U ♦  1 1 

01740000 

0262 

L«V0I  \t  Ml  “"ft  1P«  JHOMA1  ?Mt*  GO  Tl)  t|0?OI 

01741000 

0264 

•  MjTf cPhjNYrffi 1 0 1 0  >  f 

01747000 

0265 

uon*  jNnr.n*i  t 

01743000 

0266 

iiopoi  ir  j*PcniP*jftPeni  t*un  go  to  u05oi 

01744000 

0270 

4N  :  Tr (PM I N  T ,fl  1040  w 

01745000 

0271 

JNU  GH  ♦JNiir.U  ♦  1  f 

ft! 710000 

0274 

iio^ot  l r  j*P4p«j«ipa  thin  uu  to  uopoi 

01747000 

0276 

MHtTC (PRlNtafl  1 0  F  0  )  1 

01740000 

0277 

JKUGO*  JfcOGOM  I 

01749000 

0280 

110*01  IT  jNRfLMP.jf.Rfj  R  THtN  GO  TO  l?Oin* 

01750000 

0282 

RRlTrcPhl»«T#rL?000)l 

01751000 

0263 

J*UGD»J*flG(i»l  I 

01752000 

0206 

l?«lOi  ir  Jn40PP»JN«0P  TMCm  GO  TO  170401 

01753000 

0260 

««!Tf(PRlM*ri.7O30lf 

01754000 

0289 

jMJGO* jMKru i i 

01755000 

0297 

L  7n40 1  IF  JN4GP»JN4f«  Tui  N  Ut  TO  120701 

01756000 

0294 

WM|TF(PNlfcT»FL?U60)J 

01757000 

0295 

JM<GO*JMlf»nM  > 

01756000 

0290 

L  7c  7  o  i  if  jNnr.o>o  tmC*  i,o  in  i5i 

01759000 

0300 

1»  JTCHICP50  TmIr  on  Tn  L.  70*  7  i 

01760000 

0301 

SMC  ME  C  P  1 

01761000 

0  302 

17”07«  JJ1#7I 

01762000 

0303 

Jj*1  * 

01763000 

0303 

or  htotm 

01764000 

0304 

j j? ♦ j j 1 i 

01765000 

0304 

01)  H(Ul* 

01766000 

0305 

IF  C4PM*(SVM0(  JJ1-SVMVI JJ2  |>)«0  TM£M  GO  10  1350  Cl$t  If  *M«0  IMC*  G 

Cl  767000 

0305 

n  10  1  3401 

01766000 

0300 
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run  tntjl  ( jj?*( jj?m> />jnumi 

01  F690U0 

030V 

«n  nr  (pkinT.h  330*1  is»?s»i 

oi r focoo 

run 

(ip  TO  1  3^00/ 

oi  ffioop 

0  J15 

i  3*>oi  svT»i;HM(jji»svt»uiJj;»i  i.rsvTMit  jjj|»ivl*ut  jj?-i1)«(Svhiu 

oi ffpooo 

0315 

jj)*svhv(jj?"u i/csvmvc JJ2)*svMvr jj?m } u 

0 1 F  F  3000 

031V 

Ml  in  1 3H0i 

f*l  FFaOOO 

ru?* 

l  jam  tVMliHDI JJl*SVTAOf JJ?)I 

01 FFS000 

03?* 

L  3*01  JJUJJPi 

0 | F  F6000 

oj?b 

t np  "k’n  < jj'-t jj»n )» 

0 1 F  F FOOO 

0)?l 

r,i  n  i  in 

OI FF8000 

0330 

<*>■  m  1  5J 

0JFF9000 

0330 

1 3non  fcwpnw(d) l 

0 1 F0OOOO 

0331 

LOI  1  NU  1  NO  1 

oirsiooo 

0331 

to** 

H  0333  LONG* 

Nr*T  1 

004* 

is  n?Hv  l unG • 

nf»t  ! 

PMilFpIlhF  “AIKHWH/ 

01  FMOOO 

031* 

HMi  1 N 

0  |  .*«  joor 

031* 

CliNPFNt  T>4  FlIliUlNG  NHiatOlIHrS  *NF  I'NFfll  SHlNPUl*SK«*lN*St<*NSPl.P, 

o  i  ?  n  n  0  0  u 

031* 

SNI3BE  k*  \ 

('1  FnhOOO 

031  « 

LAHlL  1  M 

r  i  F#*M»d i 

031« 

SIAM 

OF  SI  u“l  M 

1.51  SHlNPdU 

(•  1  MFOfln 

cooo 

ShMAlNI 

< 1 F**OCi 

oooo 

SMr  SNFM 

0 ♦ F*900O 

0001 

SM/MFAMl 

oi fvoooo 

0001 

r-n  to  i  si 

OlFVIOOO 

ooo? 

EM>> 

01  F'JPOUO 

rooz 

ooo 

|S  0003  LUNG* 

N|  »1 

CUNMFNT  INITIALIZING  hlucm 

01/V30U0 

03  1  « 

XPW*0»K*0| 

(1 1  F9“  000 

031“ 

wainphr;  r ini s a 

Oi  FVSOOO 

0316 

em>»  r NL»  1 

999V9UOO 

031  f 

000*3 
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0001  IS  0170  LONG.  NEXT  SCO  000* 
0006  IS  0070  PNG*  NEXT  S(G  0007 

L*NJX«<  T  I»E(?)*l.KMJ»)/*0)  0*****(T  lHf(  Jj-oXXOX  >/60>  ElOV  C*T  |»l  (  1  )  I  (l EXT  I MR  *****  1 00  COS* 

ITEIPRINIIPXGE  1  )  I  NR  HE  (MI*  I  » CHGUB *  1 00»L JLPU»GC POV. LMN J* . ON  VOX >IE NU .  *»««*?00  00«* 

0007  IS  COS*  LONG*  NEXT  SCG  COOI 

XRCTxn  IS  segment  nUhSER  00X6# RRT  XOJRESS  is  OSTO 
COS  IS  SEGMENT  NUMRER  00*)*RR)  XOORESS  IS  OS** 

ElP  IS  SEGMEmI  NUMRER  OOXR.RRT  XOORESS  I*  0110 
LN  is  SEGmENI  number  00X9* RRl  XOORESS  IS  Oil* 

SIN  IS  SEGMENT  NUMBER  OOSO.PRT  XOORESS  IS  OS*T 
SORT  IS  SEGMENT  NUMBER  00NI»PRT  XOORESS  IS  OSS? 

UUTPUIt*)  IS  SEGMENT  NUMBER  OOS7.PRT  »00«ESS  IS  OOXX 
IJUTRU 1  ( C  1  IS  SEGMENT  NUMBER  nONJ.PRT  XOORESS  IS  00*1 
I NBUT ( M )  IS  SFGME hT  NUMBER  O0S***»T  XUORlsS  IS  OOS* 

INPUT ( c )  IS  SEGMENT  NUMBER  OOSS.PRT  »UORESS  IS  OOSI 
GO  To  SHIVER  IS  S  .nEnT  NUMBER  OOS»«RRT  XOORESS  IS  POSS 

TILE  CNtMLIN)  Is  SEGMEN.  NumrER  OOST.RRT  XOORESS  IS  OOIX 

Ere  CNTKL(C)  IS  SEGMENT  NlK.iR  OOSB* **R T  XOORESS  S  OOIS 

HFXO/nrITE  IS  SEGMENT  NUMBER  OOS  9#  PM  I  XOORESS  IS  001* 

NUMBER  OE  ERRORS  OETECTEO  •  000.  CO-::  IEXIIUN  IIME  ■  077*  SECONOS. 

PM T  SUE*OXB«ITUTXL  SEGMEN7  SWEmOS9)7  MONJSIOHUM  STORAGE  RC6*>0*T»e  MOHOSlNO.  SEG5..005*. 

ISUMXIEO  CURE  STOHXGE  REQUIREMENT  •  IIOM  ROROS. 
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8 . 2  ALGOL  Listing  for  LITE-II 

The  following  is  the  ALGOL  listing  of  LITE-II.  Cards  1000  through 
55000  were  provided  by  the  computing  center  at  Fort  Monmouth. 
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pigtn  fur  nut  pnint  #  ( ?• isi 1 integer  x»»/o#vviiNu.EEOvc»iKNj»«t)KvwK,8H»  icon  ooou 

ST»M  nr  SEGMENT  ••••••••••  ooo? 

ni.  t  jinu.GCPtiv  j  i  niegen  »«*»*  I!kl<>oncol  lo  ii?ihonh»t  mhekk  ctihc  on  ?ooo  ooos 

stxht  or  segment  *•••••••••  ooo3 

".U>»9n.i?.m.»3."  |9*.»?i.cngun  (mime  nrr  •#i».k3o#"pnoc.  tine  •«»ii  loon  ooor 

n.*  stcs”««?o#“i/a  time  •*»nn»*  si csm i ocr iNr  aii»T  ■tJiou  »f/uvc  oiv  ?  «ooo  ooor 

0003  IS  00?#  LONG#  N[»I  St G  000? 

inuonir.CPllv  #f/iivc  noo  ?inutin  /moo  nritL  /l«l*  EOmTtm  0, J! »V)»V», t?u,  soon  ooor 

?5»«t  or  sr Ghent  ••••••••••  ooo* 

IS)  #  1  "1  «  ?1  ?#?»)#  ?r  1#  J0«  •  3J*#  3061*  ILL  ONCCL  I«I»IlH  0#"J»N*."l  t«*#"N*H''#  HOOP  000V 

OOP*  IS  0013  long#  next  seg  ooo? 


st»«t  or  segment  •••••••**•  ooos 

•*kn“. -#«»»•, •jii».«,.j0l«,-»oG«.«srr*. "or t*.*NOv*#*orc*D  /Ovc  mime  umi  roon  ooio 

OOOS  IS  0G1 3  LONG#  NEXT  SlG  OOO? 


HJA  *TIMr  <5*>I0»VQK  *T|*t 

i )  >i  vvonii  «t  ime  »0)i  ir 

UOnVVUHO,  I  1  8163 

sooo 

001? 

i?«ioi)NOn  «  *o  twro  ro« 

X"*iN  *?  STEP  1  pN I I L  1? 

oo  riH*txaU<U]M|>l*l 

9000 

ooir 

X»«A7QjM  I8*am  ♦ion  ■  V  V  UNO  ,(J0  1  cS  )  *  1  ft  nVVUHU  ,  (  3S  »M  ♦VVU-U  ,IA?  *MIH 

10000 

00?1 

KA/g 

# I ) nmI i r  ohxnt  >/i«l»  ixN»?oinn  xmeo  #x«»/u 

♦  1  1  OH  AH  I  *  8  H  AH  I  -mtA 

11000 

00?v 

i  xn  A/o  •! ))  m?*n»NItr  (PNiNTlPior  ilNMrRK#t00NL0L<iu»GCPnv#MN«Ni#UNr.rii» 

12000 

0033 

HA/8  1 

i.WHHU.r  lot  i?i  )i 

1  3000 

OOAV 

l»l* 

Moon 

ooss 

rite 

1*  c/i»n  cc?*in  si 

1S000 

OUSS 

st Ah t  nr 

SEOMtHT  • 

r  Uf 

Ol»1  H(tNCH  0(?,10)I 

16000 

OOOS 

r  Iti 

******  ?(<?•  IS)  J 

17000 

0010 

r  lit 

TAHil  ?(?.1S>1 

18000 

OOlS 

r  li  i 

WPt?  ?(?»1S>I 

19000 

oo?o 

rite 

T  APT  3  ?<  ?• IS)  1 

5*0000 

0025 

rue 

tape#  ?(?«is>i 

?l00O 

0030 

r  1 1  r 

TAPES  ?(?»1S)I 

22000 

003b 

r  III 

T  APF6  5>(5». IS) 1 

23000 

00  AO 

r  iu 

TAPrr  ?( ?• is > l 

2AOOO 

OOAb 

> 


143 


rut  TAPES  2(2.13)  1 

2  *>000 

0050 

FILE  TAPE9  2(2>IS)) 

?6000 

0055 

FILE  T APE  1 0  2(2.15)) 

27000 

0060 

FILE  TAPCII  2(2»|5)) 

2*000 

0065 

FILE  T  APE  1  ?  2(?HS)) 

29000 

0070 

FILE  IAPEI3  2(2. IS)) 

30000 

OOFS 

FILE  TAPFIA  2(2*13)) 

i  1  000 

00*0 

FIlE  T APE  13  2(2.13)) 

32000 

0065 

TILE  TAHE16  7(2*15); 

33000 

0090 

$i»  itch  r  n  r  f  ile  $m#.xxxxxx#  i apf  i» 

t apf  ?• tape 3*tape a* 

TAPE3.TAPF4.TAPl,*. 

3A000 

0095 

T  ApES.T  Apr*.  )  APE10*  TjpEI  1  «  T  APE1?«  TjpE  1  3*  T  APE1*. 

T  ApE  15* 

TapCIS) 

35000 

0107 

LAHEL  FINIS) 

3*000 

one 

REAL  ARRAY  PATA t oi 6).0I 31  1) ) 

COHMFNT 

USEO  M  1 1 M 

DATA  STA1EMERTS  ORLY) 

37000 

0110 

REAL  Qf  XPR  J  INTEGER  *1 

3*000 

0120 

FORMAT  Ff //////-MOP  /  P*05t  NO 

.  «.|3), 

0«TL(23*0)) 

39000 

0120 

start 

OF  SEGMENT  •' 

000/  ! 

|S  00)7  LONG* 

NEAT  SEG 

Rt*L  PRUCFOuRE  InT(ARGI)! 

VALUE 

ARP  1  ) 

REAL 

AHGl! 

AOOOO 

0120 

1NT*S!GN( AHGl )*FNT1EHC Arti( AHGl  )  )l 

M  000 

0120 

heal  PROCFOOHE  1ANM<AHG1)I 

VALOl 

ARG  1  | 

real 

AHGl ) 

420G0 

0120 

TANH+C  (0*fXP(ARGl“2))-W/(QM)J 

A  3000 

0126 

REAL  PRUCfnuRF  MAX( ARG! # ARb/)| 

VALOf 

ARG I* ARG?! 

real 

AHGlfARG ?| 

A  A  000 

0133 

m a x ♦  i f  ahguarg?  tmfn  ani> i  else  arg?i 

*5000 

0133 

real  PROCEOURE  PlN(ARGl ,AHU2)| 

VALOE 

ARGl t ARG2J 

RE  *1 

AHG 1 »  A  RG  ?| 

A  *000 

0140 

M 1 N ♦  I  F  ARG1SARG?  TMFN  A*G1  E  t  St  ARG2I 

A  7000 

Oi  AO 

HEAL  PRUCE  OORf  0 1 M( *RtJ  1 • AHO/ )  ; 

VALOE 

ARG 1 #  ARG?  I 

real 

ANSI  # ARG?  ! 

**000 

01*5 

OTM»MAX(ARfil-ARG?iO) J 

49000 

01*5 

REAL  PROCEDURE  1SlGN(ARG1f Af(G?)| 

value 

ARG 1 • ARG?! 

REAL 

AkG  t » ARG2I 

50000 

0149 

TMGN*SIGN(AHG?)*A0S(ANtiT  )l 

51000 

01  AV 

HEAl  PROCEOORE  10G( ARG  1  )  1 

VALOE 

AHGl! 

REAL 

AHGl  1 

52000 

015A 

10GUNC AHGl >/?, 3025*509*V8I 

53000 

0l5» 

pkiiceouhe  EHHpHCAHr.ni 

VALOE 

ARG  1 1 

REAL 

AHGl! 

5A000 

0160 

0007 

000* 


144 


*l<ON  NNlU(PMlhT»r,ARGl)J  TO  Hn1$  END»  55000 

KlH  ARRAY  50000 

ARC ( 0 1 ?0  )*  57000 

SViriUMfOMO#  01 AU  J  *  50000 

$vriuxroi*5*oiio*oi4uj*  btooo 

svoircnsioi5o*oiio  )>  00000 

SVROrOS  (0150*0110  )*  a i ooo 

SVRHANG  (0150*0110  )*  07000 

SVArtUM  (0|?5*0|)0  )*  63000 

SVROR  C  0 1 37*015  )»  6AU00 

5  V  R  F  A  N  G  (01  37*015  )*  65000 

SVSAri(lXl0l?5,0!  10)*  66000 

SV5«nu*{Cl?5»0l  )0  )*  07000 

5  vr  LUO  101)00*0110  J  *  60000 

SVRriC0S(0l50*0l 10  )*  69000 

SVA  (Olio  )*  70000 

SVCAK'G  10137  1*  71000 

$VF*P  101 )00),  7?000 

SVrillH  10110  )*  73000 

SVOPA  (0130  1/1  f  A  ’*00 

5vrnu*  loijo  )*  75000 

SVALHtOUlOl 5  If  76000 

svcrtf  (011001#  77000  . 

fvcvriuitui 10  )•  7ROOO 

SVMO  (Olio  )»  79000 

5VRAG  (01 37  )*  00000 

SVRAYLtllOl 10  )»  01000 

SVSA*G  (01500)*  0>OOO 

SVSTriUXlOl  )C  )*  63000 

svnr 1GMI1OI500I*  04000 

5V0RrLU*(0l 10  1*  05000 

SVRrANG  (0150  )*  06000 


0)60 
0)70 
01  70 
0173 
0)75 
0)70 
0100 
0)0? 
0 1 0  A 
0107 
0109 
0)91 
0)93 
0)96 
0196 
0700 
0702 
0204 
0206 
0206 
c?  to 

0217 
0?M 
07)6 
07)0 
0770 
0777 
0774 
0776 
0770 
07  30 
073? 


145 


S VMAG  t  0 «  37  1# 

87000 

0234 

SVPRFlT  t  0 1 50  1# 

86000 

0236 

SVRO  C  o « 1 0  1# 

69000 

0236 

svrtuix  totjo  )# 

90000 

0240 

$VR0t0l25»0t 10)# 

91000 

0242 

SVSlGNOTlOllO  ), 

92000 

0244 

S VSUHRHOC  0 \ 50  1# 

93000 

0246 

SVCRAT ID  1 0 1 1 0  1  # 

94000 

0246 

5VHVIOUOOJ# 

9*000 

02*0 

SVTAU(Ot 1 001  * 

96000 

02*2 

7r  C  0* 1001# 

97000 

02*4 

SVNRFHJ01 100), 

98000 

02*6 

SVRAYRfOl 100)# 

99000 

02*6 

SVTAUMDtOUO). 

100000 

0260 

SVHOOlOllO.OIlOl  # 

101G00 

0262 

SVCA*A(0lS01  * 

102000 

026* 

svA/tnotio)  » 

103000 

026/ 

SVSAZAfOl 37  J  , 

104000 

0269 

SVPA/Af  0| 371  , 

1 0*000 

02M 

SVC.CA/A{Al*01  # 

1 0 6000 

0273 

AV  ANl>[  0 1 31 1  • 

107000 

027* 

SVORSS  (0110  If 

106000 

0277 

ilR  ARRAY 

109000 

0278 

SV1P  (014  ,011001# 

1 1 OOOU 

0276 

SVMRK  (01«  *011001# 

1 1 1 ooc 

0261 

S V JRF  f  L  T (0 1 5  1, 

112000 

0263 

SVNOFCPSrOl 10  )# 

113000 

028* 

SYHRF6  1 0  1 1 00 1 # 

1  1 4000 

0287 

SVtNCOL  (012*1  1# 

1  1*000 

0289 

SVMAT  CO* 1001# 

1  16000 

0291 

AVNfl  (OlSOO)# 

117000 

0293 

SVNPHANGC  0 i 1 0  1# 

119000 

0295 

146 


SVNRr  anGI 0  a  5  1* 

119000 

0?*? 

5VNMU0  ( 0 1 1  00 1 » 

120000 

0?99 

SVlTVPl  10*100). 

121000 

0)01 

SVMAtcniOllfl  )• 

1??000 

0)0) 

5Vli«tf(0*50). 

123000 

om 

SVNiOUNOtOl 100). 

12AOOO 

0)0 1 

5  V  NPM 1 0  10*10  ). 

125000 

0)0V 

NHFH1 C  *  5  )  . 

126000 

0)11 

SvNOtTtOMO)  . 

122000 

0)1) 

svi i«mo»W)  » 

1 20000 

0)lb 

5VNR*cn5lO*5  )l 

129000 

0)1? 

•l 

130000 

0)1» 

JAIPMA  ,  JSFTA  . 

JBRAC 

J'OEPHI. 

jcniH  . 

131000 

0)19 

JC01M1  .  jcotm?  . 

JC**  A 

JC**M  . 

JC^Hll  • 

1 32000 

0)19 

JCPHt?  ,  JCPHIO  . 

JCPRRO 

JC  P  T  , 

JC5A  . 

133000 

0)1V 

JC  5*N(i  .  JCUP  . 

JOtLTA 

JOFUM  , 

joith  . 

13A000 

0)19 

JOl^T  .  JoLONG  , 

JO«H 

JOT  . 

Jf  ah  . 

135000 

0)19 

Jtiiw  .  jri  . 

JFNPA 

JFNRA  . 

JH  . 

136000 

0)19 

JH1  •  JM?  . 

JHS 

JMT  . 

132000 

0)19 

JPAG  . 

JPJH1  . 

13R0OO 

0)19 

JPI  .  JP5C1T  . 

JK 

JRI  . 

JR?  . 

139000 

0)19 

JRFK  •  JRFSUIT. 

JRHO 

JRMOI  . 

JR*  • 

l 40000 

0)19 

JR  R  0  ?  .  JRRDSO  . 

JK  T 

jsntPHi. 

J51TH  . 

1 4 l 000 

0)19 

JSITmI  •  J5TTH?  . 

JSKVAI 

JSOO  » 

JSPH1  . 

142000 

0)19 

J5PH11  .  J5PMI?  • 

JSPHIO 

JSPT  , 

JSSANG  . 

143000 

0)19 

JSTtP  .  J5UM05T. 

J5UWS0 

JT  . 

JTfHP  » 

14AOOO 

0)19 

JT  5  •  JJPIMT. 

jrait 

JNCU  • 

JHHUA  » 

1A5000 

0)19 

JkATllf.  jTA'Jh.  ,|T AUM 1 . 

ji  aum?# 

1A6000 

0)19 

JCOAJI  .  jsruri 

f  JCAPHl 

. 

JSAPHl  » 

142000 

0)19 

ja;*ax  .  jcno  . 

JbKJ  .  JSA*  .  JR  AT  »  JANG 

. 

1 AROOO 

0)19 

jf ma  1 1  .  jpa?  . 

J01FANG 

JCARK  .  JSPA  . 

JC  AP  . 

149000 

0)19 

JARG  .  JAPA  .  JC 

A/AO  *  J AO JUST  .  JPR 1  . 

150000 

0)19 

147 


JCAPHti  ,  JSAPH! 1  #  JSRAT10  , 

lSj  000 

0  3l  V 

JX  »  JXfi  » 

JERRORS* 

JOHIN  1 

152000 

031V 

INI  EGER 

153000 

031* 

J JW8  »  J JH  T  »  JNREFL# 

J*A*H,  JNMAXR 

9  J I  BA  SI  9 

JTBASPf 

15*000 

031V 

J1RAS3*  J1RAS4#  JIHA55#  JNON, 

155000 

03t« 

Jt  BASE  9 

156000 

031* 

JttB  ,  JfmiMP  # 

JJ1  9 

JX  A  1  9 

JKA2  9 

.57000 

031  V 

JKA3  0  JK  A  4  » 

JL  A  9 

JLR  # 

JL  t«RAY» 

158000 

031* 

J10C  >  JLP  > 

JLSR  > 

JEST  , 

JNAtl  > 

159000 

031V 

JH»I?  ,  JMAXCOL, 

JWRREG  # 

JNAG  9 

JNAGP  , 

160000 

0319 

JNAUP  ,  JNAOPP  • 

JNBmAX  9 

JNRMAXP# 

JNCB  0 

161000 

031* 

JNCK  «  J NCR A A  • 

JNCOL  • 

JNCR  9 

JNCR1  * 

162000 

031V 

■JNCN?  >  JNCYC  , 

JNOrvG  9 

JNOHAX  0 

JNOMAXF  * 

163000 

031* 

JNFURM  >  JNGROUP. 

JNM1ST  # 

JNWMAX  0 

JNLN  » 

164000 

0319 

JNLH  ,  JNHAI  > 

JNH»|P  , 

J  NP(ii)  > 

JNPA  » 

165000 

031* 

JNPAP  ,  JNPART  , 

jnphase  > 

JNPCOL  • 

npcolr» 

166000 

0319 

JNPKOP  >  JNRA  , 

JNHFLB  9 

JNRI'LRP, 

JNRING  » 

167000 

031* 

JNCAHO  ,  JJJ  , 

JJ»  > 

16*000 

0319 

JNRMAX  >  JNRMAXP, 

JNMSTOP# 

JNSURECi* 

JNSY  * 

169000 

031* 

JL  A  7  t  ,'JAOO  0  JJAOMAX  *  JXniINT 

.  JNHC2  > 

1 70000 

0319 

JNAZAO  ,  JJAO  » 

JIAO  »  JMAXR1 

0  JJAMAX 

9 

171000 

031* 

JNA/A  ,  JNSA2A 

9  JIN0FX1  *  Jill  #  JJP 

1 ipooo 

031* 

JNSP  >  JNUH  • 

JNNAII  9 

JNR8 

1 

173000 

0319 

PROCEDURE  SRRANDA (  J 1 8 A $F  # 

JNN)J 

1  7 4000 

0319 

INTEGER  JIBASEI 

1 75000 

031V 

REAL  jrni 

1 76000 

031V 

BEGIN  INTEGER  A#  81 

1 77000 

0319 

stant  nr  segment  • 

A. 1121101  ♦  JI8ASE. 

178000 

0000 

RtflJMSI  ♦  JIRASE. 

179000 

0002 

J 1RASE •  (1 ? I  36  J  *  A* 

B^JtBASCI 

160000 

OOOA 

A  ♦  *01 

161000 

0007 

000* 


148 


A.1?H?7  1  *  JIIASl.1  W«?Ml 
JNN  •  A  t 

JHH  *  JXN/1 3  «  ? 1 f 7?8,V/I 

INI)  SM8ANUAI 

pmucfounc  $*sfa*cmi 
NIUJN 

INUfiER  JUJJ.JH) 

FUmmaT  h?3</"  mHunOaHy"#  ]J*"  Mas  rFEN  InCOMRFCTLY  lOENTfFlEO."  >* 

Fl3?(/»  POINT  Lies  (IN  ROUNUANY", 13) , 

K8  5(/"  SFANC«  CYCLE  TNMOUi»M  REGION*  IS  NOT  MANQELEO  PROPE«L V* " > # 
r L S»sc /•  CANNOT  mno  he o ion  for  POINT  N 1  TM  COOHOInATES  a  •  **  Si *E I  0. 3* 
•i  H  •  "**1*110. 3>) 

LIST  l T  ST1 ( JNC  8)1 
LIST  1 1$T?( Jm* JR) I 

LAHIi  l  5*L  10»L60*L50*l  70*Ll5*L30*L  3*#L  38#  L AO *L 80*190. 1.  97*101 
L5*  JN$Y*0I 
JNLR» JMHRIG) 
jNUHf JNMMAX ) 

L 1 0 1  JK • JNL  8 I 
OU  RF01N 

Jj*SVNR[ JK J  t 
J  X  ♦  1  A 
l)(l  REG  1 N 

JNCH»ARS<  SV1R1J1, JK1)| 

IF  ( XPR*(SVlTY*ei  JNCN1*I)  )>0  Tnf  N  f,0  TO  L30  ELSE  IF  XP*«0  THEN  fiO 
TO  l?M 

l?0l  HR1TI<PR1NT#FL?3*L1ST1 )l 

JNHUA  »  JNH(1A  *  1  | 


ie?ooo  oooa 

183000  ooto 

I8AOOO  0011 

185000  0013 

0000  IS  0017  LONG*  NEXT  SEG  OOOA 
186000  0  J1 V 

1 87000  031V 

188000  031V 

START  OF  SEGMENT  **********  0009 
169000  OOOO 

stami  ni  segment  **********  ooic 

190000  0000 

t  9 1  000  0000 

197000  0000 

193000  OOOO 

001U  1$  005 A  LONG*  Nf XT  $£G  0009 
191000  OOOO 

195000  0005 

196000  OOW 

197000  0012 

1 98000  0013 

199000  00! A 

700000  0015 

?U 1 000  0016 

707000  0016 

703000  0017 

?OAOOO  0018 

705000  0018 

706000  0070 

707000  0073 

706000  007A 

709000  0028 


149 


GO  10  L50I 

210000 

0030 

L  25 1  JYR*SVCO£Ft JNCR]«J«I 

21 1000 

0030 

GO  TO  l  351 

2I20GG 

0032 

L  30 1  JXR^SVCOEFt JNCR1-JHI 

213000 

0033 

L 35 1  IF  { XPW*( JXR) )>0  IMfN  GO  TO  l 40  £1  St  IF 

K»G«0  1HFN  GO 

TO 

2 1 4000 

0039 

L  30 1 

215000 

0037 

WH1TF (PHIN/*FL3F#LISTl  J1 

21*000 

003S 

jN* jh»jOFlT««jCOTHI 

217000 

0091 

J0£l 1 «k JSI f m* jCPHi I 

21*000 

0093 

GO  m  LSI 

2  19000 

0095 

L3«l  IF  (XP«*(SVlBf J1*J"  1))>0  lM£N  f.P  TO  LAO 

fl$E  If  *<’*■0 

tmln 

r.O 

220000 

0096 

TO  L?n  £LSt  GO  TO  L50> 

221000 

0050 

l  A  0 1  IF  (  XPHM  s  V 1  H(  Jl  #  J*  3)><0  TMFN  GO  TO  L*0 

ELSE  If  «*»■<> 

tmfn 

Gf 

222000 

00*1 

TO  L?OJ 

223000 

0055 

1501  END  UNTIL  ( J!*( J!*l >)>JJJ 

229000 

0056 

JNCR*JKl 

225000 

0056 

GO  TO  LOJ 

22A000 

0059 

LAOI  £  NO  UNTIL  ( JK ♦ ( JK ♦ 1  1) > JNUH 1 

227000 

0059 

If  { XPP*(  JNSV)  )>0  TM£N  GO  IU  L’O  SHF  IF  X«»R<0  TMLN  GO  TO  L60j 

22*000 

0062 

JN  S>  Y  *  1  1 

229000 

0065 

JNLH*  1  1 

230000 

0066 

JNUH* JPPRFGJ 

231000 

0066 

GO  TO  l 10 1 

232000 

006  7 

LBUI  NRITF(PRIN1,FlA5)J 

233000 

9066 

JWHp4«.  JHM04*- 1  ) 

239000 

0071 

GO  TO  L97J 

235000 

0072 

1901  NR1TF(PRINT,FL95*IIST*»J 

23AOOO 

0073 

jwmd«*JNH0AM  J 

237000 

0077 

L  9  F |  JNCR*0I 

236000 

0079 

I.OI  £N01 

239000 

0079 

0009  IS  006  3  LONG*  N£XT  S EG  OOO* 
0J19 


PMUCFOUHE  SRDSJHOJ 


290000 


150 


MtGtN 

?«!OOP 

0  3 1  v 

INUGER  JJ.JSI 

747000 

031» 

ST*hT 

nr 

SE  GHENT  * 

CEMENT  THl  f  Qtt  On  t  NG  P»ntt0u«15  4Mf  USI  0  •  S*S£4*CHJ 

71)000 

0000 

r i]n***t  i l i ^( / "  houniuh**. i j.»  h*s  reen  incNttnto  incorrecti..*!. 

741000 

ooou 

STINT 

nr 

SEGMENT  ♦ 

fOV/"  UPC  1 C S  •".!«.*  »  RR»C  •'•no.), 

7*6000 

0000 

•  0.  *  ■  %£10.1/"  M  •«iU0«3i”  6  ■•#£10»3*"  COEf(fcfl)  •**£  1 0«  3, 

?«6000 

0000 

•  ! T  YPT ( ! CM  )  •«.  |A), 

7*7000 

0000 

ri.FS(/*  cpi.lIsHin  point  is  "IThi*  «  oisunce  be  i.i  0£it»  from  BOUNO»R». 

746000 

ooou 

"t*.i».*,  n  >»s  «nvEn  nr»  the  rouno*ht,*ii 

749000 

0000 

00!  7 

IS 

0066  LONG* 

N[»T  SEI 

C  t  ST  L1ST1(J!CH)| 

760000 

0000 

LIST  11  ST?(  JlUC.JtCP.J«.J8«»t .  Jill  ST.JH.JR.SVCPCE  1  JICB).  SVt  TTPEl  JlCt>  i  >  1 

761000 

0006 

list  l  IST3UNCS1I 

?S?000 

0071 

l»HH  IS. t60.l?V. 130.13#. U».|  JR.lS6.l0l 

?S3000 

0076 

CfMMFN!  SUH»nulfNf  OS  1 moi 

?S»000 

0076 

jNlfltft) 

766000 

0026 

JJI*t 1 

766000 

00?  F 

JIUCMOSI 

767000 

00?# 

LSI  JOl  ST  ♦  JOLUNli  J 

766000 

0076 

J*»SVN6l JNC«  )l 

?s«ooo 

oo?» 

JJM  1 

760000 

0030 

OU  PCGTM 

761000 

0C3! 

JtC6*46S( SV|Hl JJ, JNCN J)l 

767000 

0031 

l»  (»RR.(S»IT»P£(J1CRJ*I  11>0  T  H£N  f.P  TO  1 30  ELSE  IF  »PR*0  THEN  OU  TO 

763000 

0033 

l?OI 

764000 

00  36 

»RtTE(PH|NT.Fl|S.llSTl)l 

766000 

003F 

766000 

004! 

GO  TO  10 1 

767000 

oot? 

1201  ir  6RS( JC0TH1SJSNV41  THEN  00  TO  1601 

766000 

004? 

J**(SVCU££t JICB J»JM)/JC0IM| 

769000 

0044 
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bn  TO  L 3V I 

L  30 1  I  r  AR$(JMTH)SJSHVAI  THEN  GO  TO  L6CI 
JMACH SVCOl  El j««JSRmI  >•?>! 
ir  JRH Af. < 0  THEN  GO  TO  L6UI 

IF  (XPR*(SVCUEEl  JICR?»JRJ  >>0  THIN  f.C  To  I  30  USE  I* 
L36I 

JHPREO* JNCRI 
bRSEAKCHI 

IF  jFRRORS<J"HnA  ™CN  GO  <0  10  E|.S£  GO  in  LSI 
13  A I  JXK-JN*  JCPhI«$QRT<  JHHAC  ))/JSl  TH I 
**.3  TO  L  39 1 

1361  JX*{-JH»j‘.PHI450RT(  JKKAC))/jMTHJ 
L  39 1  IF  JIOUHPSO  1  HEN  GO  »0  1561 
HRlTEfPR!NT#FL5>»L!ST?)l 
L56I  IF  JXSO  THEN  GO  TO  Lf»OI 
IF  JPISTSJX  Tm£N  GO  TO  L6U| 

joist*jxajoeltai 
JNCPAJICRI 
Jjf 9 JJI 

L 60 1  L NO  UNTIL  I  )  >  J*  I 

If  J0IS1M.1KJUFLTA  THEN  GU  TO  LOI 
«RITE{PHINT.FL7!»»LIST3)I 
jm*jm*jdclta*jcothi 

JK»JR* jOELTAkjSI THujCPHl I 
JHPREG9SVHPRI JJI » JNCRJI 
SHSE  ARCH  I 

if  jncr>o  then  cn  to  i5i 
LOI  E  NO  I 

phuceouke  shdetecti 

RE'*  1  N 

REAL  JCOn.  JSIOI  tNTCbtH  JJ#JK,JL»JHI 


770000  00*6 

77  1 000  00*7 

777000  00A6 

773000  0051 

x pr< o  then  go  to  ?7aooo  oos? 

775000  0056 

776000  0056 

777000  0057 

776000  0057 

?  79000  005* 

760000  006  i 

701000  0065 

707000  OOf0 

703000  0070 

76*000  007A 

765000  0075 

766000  0076 

767000  0077 

766000  0076 

709000  C079 

790000  000? 

79 1000  000 A 

79?000  0087 

793000  0009 

79AOOO  0091 

795000  0093 

796000  009 A 

79700U  0095 

0011  IS  0101  LONG#  NEXT  SEG  0006 
796000  031V 

799000  031V 

300000  031° 
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INTI uf  H  jl  C  »  Jl#  J J  3#  JJ7J 

rowM « i  U!*o<*  me  ••#:*#•  la  ••♦ia.*  ic#**ia>"  ip«"#i6#*  ••cm*"#**/ 

*  COTM?  ■  "•S!  #t  1  0.  3»"  t  *Ma»"  H7  •  ’SEIj.A#"  XOCU  •  *#  SI  #t  1  3*  6)  # 
F12A0C"  IOC"  *  #  I A  »  *  J?  •  "  #  l  A  /"  >’f  SU1  T«"#61#FJO*3.*  FLUX  «"#St#ClO» J# 

-  FlUO  ■  *#  5 1  •  t,  1  3  •  1#  "  RFLU*  ■  ">  S  I  *F  M  #  3#  •»  R£FL  ■  "  *  S 1 »  fl  0 . 3  #  -  AFlU*  «»# 

M  *  r 1 3 . 1)1 

LIST  I  15  M<  JLOC*  JIA#  JLC#  JL'»  JNCR1  *  Jf  OTm?#  j!  *  jM*#  SVM|)(  Jl  )  )  I 

LIST  LTST?(  J*  PC#JJ?» JRFSUL  I  »SVF|  0*f  Jl  A  » JL  P  .  J  JAPP  1  #  S  VFl  UOI  *NMC 7  #  J J?  J  #  $V*F 

LU*fJJ?)#J  1  FLfSVAFLUXI  Jl C  »  J J?  J )J 

LAMfi  L  ?  0  •  I  i?#LA{.»L<kO#LTO.L  100#L90,1  |  ?0 ,  £  \  30  »L  1  60#  LI  5C#l  1  7  0  #  L  200  , 

L . |  ?,0,lOJ 
JL  *  1 1 
01  MF&1N 

IF  Jf UTM>?SVC IPAI JL 1  TMF*  GO  TO  L?0l 
IN')  (.NTH  (  JL»(  JIM  ))>JNPA> 

L?Ul  JL  A*  JL I 

CUMMfNT  (ifTfMMlNL  IMlfX  #  LAZ  #  F  HR  AZIHOTMAL  T  ABLE  I 
JL  *1  I 
OC  PF  G  I  N 

IF  JCAPHf?$V<*  ./Af  JL  J  THEN  GO  TO  L1?l 
END  UNTIL  < Jl*( J|  ♦!  )  )>JNA/AI 
L 1 r I  JL  */♦ JL I 

CnHHFNT  nFiEMNpJE  NUHRtM  u#  COLLUSION  PRINTOUT  GMOUP  INDEX*  IC.I 

JH  •  1  | 

00  HFGIN 

IF  SVlNfOL?  JH  )>JNCflL  TMfN  GO  TO  L«OJ 
LNn  UNTIL  ( JH*( JM*1  )  )>JNHLUl j 
LAO  I  JIC*JM| 

COHNfKT  OFTfHMlNE  NUHRfR  JF  RIFLFCT10N  PRINTOUT  GROUP  1N0£X»  LP,I 


ST  A*1 

or 

SFtiMk.N1  • 

301000 

0000 

307000 

0000 

S T  6h  t 

OF 

SEGMENT  • 

3O3OJO 

0000 

30A000 

0000 

106000 

0000 

3060C0 

0000 

0014  IS  005*  LONG#  Nr  XT  SEG  0013 
3CZOOO  0000 

306000  0016 

309000  J076 

310000  003 A 

311000  003 A 

3 17000  00  3 A 

113000  C  035 

31AOOO  0031 

3 1 5000  0036 

316000  0039 

31 7000  0039 

316000  0039 

319000  OOAO 

3?0000  OOAO 

3? 1 000  OOA? 

377000  006 A 

323000  0065 

376000  0065 

375000  0066 

376000  OOA  6 

37ZOOO  0068 

3*6000  0050 

379000  0051 
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J**IJ 

330000 

0051 

00  BEGIN 

331000 

0052 

IF  JMJJMHFL  THEN  GO  TO  LftOl 

33?00O 

005? 

t  NO  UNTIL  (  JM*{  ))>JM*XRJ 

333000 

0053 

L6U  I  JLP*JM| 

3 JAOOO 

0056 

LTOt  JT ♦ 1 1 

335000 

0056 

00  BEGIN 

336000 

0057 

IF  <XH**<  jM?-SVHnt  Jl  I)  )<0  THEN  GO  Tfl  LIOO  EL$l  IF  XpR»0 

then  go  lo 

337000 

0057 

L  90 1 

3  300  00 

0061 

END  UNTIL  <  JI  ♦  <  JT  ♦imjNDHAXl 

339000 

0061 

IF  JC0THr*JSMVAL<0  THEN  GO  *0  L1?0  ELSE  Gp  T0  LOl 

3X0000 

0063 

L9UI  jH2» jH?*jOtLTA»jCOTM?F 

JA  1 000 

0066 

GO  TO  L7CI 

3A?000 

0067 

comment  h?  is  helom  oeteciu*  plane  ho(T)j 

3*3000 

0066 

LIOO*  If  AR$( JCUTM?)SJSmV*L  »HEn  GO  TO  LOl 

3AAOOO 

0066 

IF  ( XPB^ ( JC0TH2  J ) >0  THcn  GU  TO  L16P  ELSE  IF  XPR-0  TH£N  GO 

TO  LO  ELSl  61. 

3A5000 

0070 

TU  LI3GI 

3A600O 

00  7  J 

L’JMuFNT  Fl.UK  15  CALCULATED  f  OH  OETfCTPRS  *FL0*  H?J 

3*700O 

007* 

L  1  ?0  t  JJ3* JNOMAXJ 

3*6000 

007  A 

r«U  TO  L  1*501 

3*9000 

007* 

LI30I  If  JlSt  f MEN  GO  TO  LUI 

350000 

0C75 

JJ3*JI-1 * 

351000 

0077 

L 1 50 *  J Jt ♦ T 1 

3S'/Q0P 

0076 

GO  TO  L170I 

35300O 

0079 

COMMENT  FLUX  IS  CALCULATED  F OH  0E7FCT0R  PLANES  ABOVE  »2l 

35*000 

0060 

L 1 601  JJ3»JN0MAXJ 

350000 

0060 

JJUJII 

356000 

0061 

UFO*  IF  JIOUHPSO  THEN  GU  *U  L?00J 

357000 

008? 

JLUC»90I 

356000 

006* 

mrite(phint,fl19o,li$ti )J 

359000 

008a 

L?OOI 

360000 

0066 

00  BEGIN 

361000 

0089 
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JRf  SUl  T*J«A|  !■£  XP(  (  JiAUMrf-SVTAUMDI  JJ?  ! )  / JC 0 Tm ? ) /4» S< JC 0 TK? >  1 

36/000 

0089 

JJAOD*jLA/.JNA/Aii(JJ?»I  )» 

363000 

0093 

*>vri  in ( jt  *» ji y, jjaooi*svm.ui t ji a# jl p. jjahoi ♦jrfsult i 

3AA000 

0096 

bvri  uot  JNC«>»  JJ?l»«.VfL0m  JNCH?.  jj?l#JftFSULTl 

365000 

0101 

iV^FluM  JuC  # JJ?)*SV4fLUXt JtC» JJ?1*J«ESUL  Tl 

366000 

OlOt 

if  jnrun  thin  r.o  to  l?*ui 

36/000 

0 1  08 

SVRFLU*!  JJ?  1»SVRF  Ltix (  JJ?  j*jRF  SUlTI 

366000 

0109 

SVBOfU  JLPr JJ?i*SVH00t JLHiJJ?)*JBESUL  T 1 

3A90GC 

01  1  1 

i??o«  jtrc*noi 

3/DOOO 

Cll« 

IF  Jll/UMPJO  THEN  r.n  TO  1**01 

3 / 1 OOC 

0113 

•»M1TE(PB1NT.F  L?«0»UM?)' 

3  Z?000 

OllE 

1/501  ENO  UNTIL  (  JJ?*(  JJ*M  >)>JJ3I 

3/3000 

01?0 

L  0  *  (NOT 

3/AOOO 

0 1  ?  3 

001  i 

15 

ODD  LONG.  NEXT  SEG 

0006 

PNUtrOUMf  SHANSmERI 

3/5000 

0319 

BEGIN 

3/6OC0 

0319 

INTEGER  JJNf  JJJI 

J/7000 

0319 

START 

or 

segment 

OOIS 

HF«l  JF  GHHllP#  JFNHMAXI  INTEGER  J  l  »  J  J .  J*  »  JN  .  JM  1 

3/BOOO 

0000 

HUN  1NU0FH  nmi 

3/9000 

0000 

FORMAT  FlllO<"  RAOJATIDN  HtSEAHfH  ASSOCIATfS  #LlTE»  PROdlE  M*.  I  !  0)  # 

3B0000 

0000 

START 

or 

segment 

0016 

rt1?D(/w  MIMOHT  TTHmInAT  1  *jn  COUNTERS,-). 

361 000 

0000 

F  L  1  JO ( ✓"  ». 19. 

3«?00C 

0000 

»  HISTORIES  "IMF  TFNMlNATti*  rRFN  T^E  COLLISION  NUM8FR  EXCEIOEO*. 16. »• "/ 

363000 

0000 

|J0.*  Mj  STflR  If  S  HERE  TFRMIN1TF0  BY  TMF  REGION  IMPORTANCE  RAMANS  UR*.*/ 

3BA000 

oooo 

IIP.*  HISTORIES  *E  WE  TERMINATED  by  M1NIHU*  MIGHT  CUTOFF  • "/l I 0» 

365000 

0000 

"  H  1  S  T(JR  I  F  S  HF.HE  TFHMlNATtu  AFTER  MAXIMUM  NUMBER  OF  R£rLECTJ ON $"»",*). 

.366000 

0000 

rinse/*  *.i9.*  collisions  uccurred.*). 

36/000 

0000 

PLIVK/ 

366000 

0000 

-  PARTICLE  S  TERMINATED  In  t  ACM  REGION  BY  REGION  IMPORTANCE  PABAM*# 

369000 

0000 

*t  TFRS.") » 

390000 

0000 
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FL160</ 

"  REGIUS  HI  StU^lCS  RFGIUN  HISTORIES  MFGICN  HISlORIES  «FG  I  0**  • 
•N  HlSTORIFS"/ 

•  TFRM1MTFO  TFRH1N4TSD  TERM  1N4TE0  "* 

"  7F.RK1MTEO")* 

FL1  70t"  "*14»19»  MO#  19*  ||0»|9»ll0»l*)» 

F L  1  90 (  / 

•  SCATTCRFO  LIGHT  IMTFNSHY  VERSUS  4NGlE  4N0  NUMRFR  OF  RLFlECT"* 
"IONS  f  Rf1M  SUKUCF  ONF.")* 

FL  i?  1 0  ( "  ANGLE"*X3J*"CHLL  |S|UN")* 

FL<?50("  (CnSiNt  >"*  |6*6(X9*  !<!))* 

Fl?6?C"  (CHS1NF)  TOTAL")* 

FL  ?«• ( "  "*X?J*"IOTALw) * 

FL  ?66 ( "  "#X34#"10TAL">* 

FLi?6R("  "**AS#"IOTAL")* 

FL?70("  ".X5A»"10T4L")» 

FL?7?("  "*XA7*"10T4L">* 

Fl?74("  "*X76*"10T4L">* 

FL*50 ( / 


391000  0000 
397000  0000 
393000  0000 
394000  OOOU 
395000  COOO 
396000  0000 
397000  0000 
390000  0000 
399000  0000 
400000  0000 
401000  oooo 
40?000  0000 
403000  0000 
404000  0000 
405000  OGOO 
406090  0000 
407000  0000 
406000  0000 
409000  0000 


06"), 


4?0000 


0000 


* 
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Fl5A5(/ 


n  605(  / 
Fidi5(/ 
F16J>5(/ 


0!  0? 
0  7*). 

Oft*)# 

Oft 

Cft 


03 


04 


05 


0**  )0 

of  tn«>, 

FlM0<"  L*<VM1  sCATTCHCO  Fru»  REF  it  C  T0N  SURFACES  TO  EACH  DE  UGTOft.  *>, 
Fl*90C/"  NO  o  f  HE)  if  CTIONS  OfTfCTOR  *>. 

Fl705(/«  *• > 1?#  5( *9. 17  )  )» 

FI  7  jS(7Nft.4,H0. 14.17.1?.  W»*  4CC*>. 

FI  !«!(/*!0**CUSiNtS  OF  4/i«uTh4l  RANGE  ■  *• ft 1 #£ 10 . 3# •  TO  *#Sl.U0,3>. 

Fl*0O</*  SOJRCC  HEIGHT  M»*»$t.fiOf3. 

o»  ricTOH  cooroinatcs  H0«*.si.rtn.3.*  ro>.*.si.fio.3)» 

Fi?ftO(-  -.nr.A.i 1 1 , A). 

Fiioot/*  total  *,si«rm.j)« 


4?1 000 
4??000 
4?’100 
474000 
A75000 
476000 
A?  7000 
4?ft000 
479000 
430000 
431000 
437000 
433000 
A  34000 
435000 


0000 

oooo 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

AOOO 

0000 

0000 

0000 


risioc  *>(?•».  st.  rni.i). 

436000 

0000 

ri-jfdc/*  rum 

437000 

0000 

riMnc* 

4  JftOOO 

0000 

ri/?n</"  tlll«L  "•St.5Clt.H. 

439000 

0>00 

FI  7A5(ftl.6E1 1  .A.  14.17.17.  W»*  ACC*). 

440000 

0000 

>.r ti i. •*  «rr">» 

441000 

0000 

0017  1ft  0763  LONG# 

NEAT 

LIST  l 1  ST  1 ( JNHNUR  )  I 

4 A  7000 

0000 

LIST  L  1ST?(  JN4ACC1L.  JNCMAX.  JNRjTnft.  JYW4IT, 

JN  M 

4  *R  )  1 

443000 

0005 

LIST  L 1ST  3  C JNOGU ) I 

444000 

0015 

LIST  1. 1  STA  ( FOR  0*1  ♦!  STf*  1  UNTIL  JNR*A* 

00 

10)1 . SVNR I C  U 1 0 1 1  1131 

4A5000 

0070 

l  1ST  l  »ST5TJCA|A0.5VCC47A(JIA0  1)I 

446000 

0031 

LIST  t lSTftt JHS.SVROIJJl.SVNOl JJ|)I 

447000 

0036 

LIST  11ST7(F0*  PH  ♦  Jf  At  STtH  «  UNTll  J*A? 

00 

SVIlNFKOXl  ))  1 

ttSOOO 

0046 

LIST  L !STft( SVC1PAJ jN'.FHH  U*1»JMA|  step  1 

UNTIL  JKA?  DO  SVFLU*1JN#U* 

449000 

0055 

JJAOP]  51 

450000 

0061 

LIST  11ST9(F0»  n*l#JK4l  STt#*  1  UNTIL  J*4? 

no 

svtfiuxio*!#  jj»oodi 

A51000 

0067 
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LIST  L1ST10(SVNHEG<  Jll<EOR  U«I*I  STEP  1  UNTIL  JNEO«M  00  SVELUL' t  JI  < U  J  1  )  )  I 
LIST  LISTllO't'H  0»|H  STEP  1  UNTIL  JNEORM  00  S  VELURIO*  1  )  >  > 

LIST  L  ISTI?(SVNH£SUI  J»rOR  U*1*P  STEP  I  UNTIL  JNEORM  oo  smU0IJI»O»iI  >< 

list  LiSTUcroH  o»i»«  step  i  until  jnfohm  no  svelurioxi m 

LIST  LISTI«(E0R  0>1*J«»I  SILP  I  UNTH  JK42  00  S  VNOE  T I  0  *  1 1  )  I 
LIST  L1ST15<SV11REEUJJI<EUI<  0»1<JK41  STEP  1  UNTIL  JK42  OU  SVXDOl 
JJJ<D«1 1)1 

LIST  LISTISCEUH  DEUJK41  SUP  1  UNTIL  JK42  00  SVRELUX I  04 1 1 1 1 
LIST  LISTlTTfON  0*1<JK41  SUP  I  UNTIL  JR  »2  Of  SV»NStoXll<JNPROR<JI»0< 
JJO. JNCRROJI 

LIST  lISTlRirUN  0X1»JK«1  SILP  1  UNTIL  J«42  00  SVEUIX  J  JN,0  *  I  <  J  J  J )  < 
JNPROP. JIRO.JJU# JNCRN01I 
HI  G  I  N 

L SHF L  LV9R.L1"0,LIRS,L240  ,l;<6i  .L2TS.L26  3, LJSS<L26T<L26R<L2T1<L2T3< 

L  14<L430<L440.L4an<L490.l  '  UU.LSIO.I  52«<L S 10 ,L 540<L600<L 6 IO»L 6 20  < 
LS50,l«nl.LOSO,L6T0,LTU0,LU0.LT10,L0I 
S«l  I  OH  SHOO  I<L261<LJS3<LJ65<LT6T<LT69<L2TI<L2T3<L2T5I 
SR ITCH  SNGP 2<L4»0,L4 90. L50U <L510<L520<L 530 <L 540 < l 600,L 6 IO<L 6 201 
COMMENT  SUHR0U1INF  6NSaER< 

JFMHM6T*JNHM6«I 
JF  GfcnuP»JNGHUUPI 
JJ60M»»» JNnM4K«JN474l 
JLM<JN4XI<<1I 
JJ‘1I 

OU  BEGIN 

Jl*ll 
UU  HEGIN 
JK<I  1 
00  BEGIN 

SVEl  l'*t  JR<  Jl<  JJ  If  SVELUXI  JK<  JI<  JJl JJENHM4II 


452000 

0077 

•53000 

0066 

•5*000 

PORT 

•55000 

o  i  o  e 

456000 

out 

•57000 

0126 

•56000 

0130 

459000 

0137 

•60000 

0 1  46 

•61000 

0155 

462000 

0160 

•  6  3  C  0  0 

0166 

•••000 

0J76 

••50CQ 

OlT6 

st4»t  nr  segment  • 

666000 

0000 

•47000 

0000 

•66000 

0000 

•69000 

000  T 

•70000 

0016 

•  7] 000 

0016 

•72000 

001E 

•73000 

001C 

•74000 

0019 

•  76000 

0021 

•76000 

0021 

•77000 

0021 

476000 

0022 

479000 

0022 

460000 

0023 

461000 

0023 

OOlR 


SVEL  lUt  JR  <JLST<JJ16M<LUET  JK<JLST<JJ1<SVELUX  JR  <UI<UUII 


66J000 


0026 
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SVTf  lux!  Jl#  JJI»S»frLU«(  Jl>  JJ]»SVflU«f  J¥»J1»  JJ)t 

403000 

0035 

r NO  UNTIL  ( JK*< J*Ml7>JNPAJ 
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1035000 

0083 

SHH*N0*(JlPA$3»JRN)J 

1036000 

006* 

JSU  PH  •?*  JHNI 

1037000 

0065 

JOIOM*  JCTI  P»?*J£tCP*?l 

1036000 

0067 

f f  JOl HN> i  Th{*  GO  TO  LllOl 

1039000 

0069 

jUtOM*SW»T( JDIUM>» 

1040000 

0091 

JCDPHI* JCTFP/jOt D  M | 

1061000 

0092 

JV>PMl* JSTFP/JOIOHI 

10*?000 

0093 

H  jSl  Tm?>jSmV*l  THfW  f,()  Tu  |_1  361 

10*3000 

0095 

JCUTHI»JCSA*GRJCt)TH2l 

1 0*4000 

0096 

JSIThJ#.  JSSAhGI 

10*5000 

009/ 

JCh»M1*JC0PhU 

10*6000 

0096 

JSPH1|»JSDPH1I 

10*7000 

0099 

JCOIPMUJCOPHII 

010*7100 

0099 

jSOtP‘'l*JSOPHl| 

010*7200 

01  00 

GO  TO  U5DI 

010*6000 

0101 

LUM  jCOTHi*  JCUTM?*  jC  SI  ««;*.»» I  Tm?r  jSSAnGrjCOPMII 

1 C49000 

OlO* 

JSMhJ  ♦J»OKT(  1  •JCOTH1UJCOTH1  >* 

1050000 

0106 

jsot  PM1*(  jSS*#G«jSf)PMl  J/JSl  t  H 1  f 

1051000 

0109 

JCU£ PHI ♦( jc SANG- JCOTH?*jCO« *1  )/<  JSMH?»jS1 TNI )t 

1 057000 

0111 

JCPMI  l*.iCPMi?*jCOEPM!«jsPHl^RjsnEPMl  1 

1053000 

01 1  3 

JSKMI 1 *JSP^1 ?« JCOCPHl ♦ JCPH1 JSOCPMI 1 

105*000 

0116 

LUOl 

0105*500 

0116 

JC  *  PH  1  1 •  Jf  *PM I  1 

1055000 

0 1  1  V 

JSAPH1 1 <  JSAPHl 1 

1056000 

0119 

JC*PH1* JC*PH] 1 ■ JCDfPHl-jSAP"! l*jSOfPHT t 

1057000 

0120 

Ji*PM?  »  JS*PH11  *  J- or  PHI*  JC  ***1 1  R  JS'iFPHl  1 

1056000 

0122 

L1)M  JCOTH?*  JCOTHI  1 

1059000 

0125 

JS| Th?* JSI ?H1 1 

1060000 

0125 

|C^H1?»JCPH11 1 

1061000 

0126 

JSPHI?*J5PH1  *  1 

I0J2000 

C 1 27 

JLUC*60» 

1063000 

0126 

4” 
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Tf  J10UMPS0  T  Ml  R  on  To  to) 

«N  llE'PHlNT.rti  i9,L f ST>> I 
L  0  I  E NO  t 

PHUCEDURE  SHDHl Am! 
flCUlN 

INTEGER  J  J  »  JJ?I  Rf*L  jvu; 

FORMAT  Hil(«  MS  IS  GREATEH  THAR  MV(ROM), 

FL?30<«  RAO  1  *  1  1  UN  RE  S*  ARC*  ASSOCIATES  •Lit/*  PRO«lt  ,  M  0  )  * 
Fl?Af»[/*  OlRfCT  r>  t  A  M  LIGHT  1 R  Tt  NS  1 T  1 F  S*V  / 

"  ncnstoft  omcct  intensity-), 

rc?SO</"  -»16»X«»Sl*Ell43)> 

LIST  L  1  ST  1 ( JRPHU8 ) I 
LIST  L1ST?( JJ#SVORFLUX[ JJ1II 
LAMf  t  l  3*L100*L?l0*L0f 
CijmhCrY  suhhuuTIrF  OREAmi 

DU  RE GIN 

IF  JHSjSVHVf JJ?)  iHfR  GO  <0  131 
LRO  UNTIL  ( JJ2*( JJ?*1 ) 

NRiTF(PH|WI*FU  1  )» 

GO  in  LOT 
L  3 * 

J  JHT  I 
JJ*I  I 
DU  BEGIN 

JVD*SVMnt JJ J*JMS» 

Jf »SQNTC JV0*2*SVR01 
JCnTK*JVO/jT I 


1 064  000  Ol?t> 

106S000  0  |  30 

1066000  0133 

002b  is  0139  LUNG*  NEXT  SCO  0006 
106  TOGO  0319 

] 066000  031  9 

1069000  0319 

stant  nr  sfgmint  a*********  0030 
")*  10EOOCO  0000 

SIAkT  of  SFGmErT  •••••••••»  9C31 

10/1000  0000 

10/7000  0000 

1  Of  3000  0000 

ior«ooo  0000 

0031  IS  00«9  LONG*  NFXT  SEG  003C 

10/S000  0000 

10/6000  000b 

I0//000  001? 

10/6000  0C1? 

10/9000  C01? 

loeoooo  ooii 

1001000  0013 

1062000  001  • 

1003000  001 / 

IOMOOO  00?0 

10HS000  0021 

1006000  002? 

1 06/000  0023 

1068000  0023 

1009000  0023 

1090000  002b 

1091 OGO  00?6 
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IF  **'»(  jCPTM  j  *jSMVAl  TMf  N  GO  TO  L100I 

109?000 

0C?9 

JNMOT*jT*(^Vt  AUlJJMT 1-SVI *U1 JJHHJ  )/(SVHVl JJMT  J - SV MV  1 J JH« }  )  | 

1093000 

0031 

GO  TO  L ?  1  0  7 

109*000 

0035 

i  1001  JRhOT»( SVf AUM01 JJl"JTXUM)/JfnTH| 

1095000 

0037 

i?lo»  svnmuxt jjusvnPSii jjUe xp(»j»mOT)/jt*?j 

1096000 

0039 

1  NO  |IM  U  (  JJ*(  JJ*  1  ) 

1097000 

0C*  3 

MH  1  T(  (PNtN?tP*w‘  1)1 

1098000 

00*5 

NNlTr(PNlNTfri^iO*Ll&Tl )| 

10990G0 

0046 

HHlTr{PNlNT,ri?*0)| 

1100000 

0052 

JJ*1  1 

1 10100U 

005b 

OP  RFGTN 

1107000 

0056 

»RTTF<P*1NT»F  L?j!WLlS1?)» 

1103000 

0056 

1*0  UNTll  (  JJ6<  JjM  l)>„Ni>*AXl 

1104000 

0060 

HMITF (PNlHTCP*Gk  1)1 

1105000 

0062 

JNHQA*  1  1 

1106000 

006b 

ini  FnOI 

1107000 

0067 

003U  OOM  LONG*.  NFxT  SfG  OOC* 


PHUCFDUMC  5RC*ICKI  t 108000  OJi9 

81  GIN  1  109000  0319 

lMfC.fR  Jl  1  » JlNAG  »JlNP*  #JlNPCOl  .jlNPf  1  ,  jlNRF?,  jlNRF  .  JJf  MECM#JJCMI(,K  »  1110000  031* 

st*ht  nr  sr^MtHT  **•*•*•*••  ooi? 

JJ#JM^M»JN»r?».»*JH>3#jNHF,jwArJl#JNMAl»jNPcnLl  >  litiooo  ooou 

FfiMHxi  ft?5(*  inf  u>  MtrucnoN  r do ndn i f sM •  1 3#  liipoou  oooo 

$l*"T  nr  SK.MkNT  *••*****•♦  0033 

*  tnnns  th»  iimtt  nr  •>  «i tn*f n"»"-n*T*  check  cont inuf*. . .")#  linoon  oooo 

FI«S("  TMr  Ni'MmFH  nr  UlTf  t  iC«SHt  IB***  FXCEFOS  the  UlMlT  nr  |0  *i.LU«tn"#  tiuocc  oooo 

M.0*T*  CMfCK  tHM|NUl5...”)»  U  15000  OOOO 

ri.o«{"  tnf  NUNHfM  nr  h«tm ■ *i ij#"  ffcefos  the  limit  nr  io  *LLO«rr>"#  1116000  ooou 

".HAT*  CMFC*  CUNT TNUF5.  1117000  oooo 

Fl*5(*  Tnr  NUNHFR  or  PMlN<  cnu  )SinNS"#T3»  11  18000  oooo 

•  MCflOS  T*f  LlHlT  nr  ?4  *UU*FU».«»PAT*  CHICK  CONTI NUES» • .")•  1119000  oooo 

ri  lost"  the  nmmae*  nr  pri*i  4nglf5-#ij.  U?nooo  oooo 


'  V,4?« 


-  EXCfEOS  THE  LIMIT  or  25  AlU)*EO-#".OATA  CHECK  CONTINUES*  •  •")  * 

fli25<"  tne  number  nr  source  angles"#13# 

«  EXCEEDS  the  LIMIT  or  37  alloweo*#".oata  check  continues.  .."># 
riust"  thf  number  or  regiuns"# u#-  exceeds  the  limit  or  100  alioied*# 

-.OAT*  CHECK  CONTINUES..*")* 

riisM-  the  number  or  hoununjes"#  H# 

-  EXCEEDS  the  limit  or  10U  ALLOWED-#-. OAT*  CHECK  CONTINUES...")# 
ru«o<-  cosinf  source  angles  must  re  input  in  descending  oroer"# 

-  ■)* T A  CHECK  CUNTINUCS.  .  .")# 

rL?isc-  cnsiNt  print  angles  must  re  input  in  descending  onueh-# 

-.oata  CHFCK  CONTINUES..#")# 

rL23S{-  REELECTION  ANGLES  MUST  PE  INPUT  IN  OESCENOING  ORDER-, 

-.DATA  CHICK  CONTINUES...")# 

FL?70(-  HFFlECTIUN  COSINES  MUST  HE  INPUT  IN  OESCENOING  OROLR-# 

-.DATA  CHFCK  CONTINUES, ..")# 

rijiSl"  D]T  EFHtNT  f  *L  COSjNLS  MUST  Rf  INPUT  ]N  OESCENOlNG  fJROFR-, 

-.OAT*  CHFCK  CUNTINUE S. . .")# 

FL3SS(-  PH A  if  ANGLES  MUST  HE  INPUT  IN  OESCENOING  ORDER"# 

".DATA  CHFCK  CUNT INUI S, . .")  # 

FLi«S("  ANGLE  ?RDR AB 1 L I T 1 1 S  MUST  PE  INPUT  IN  ASCENOING  DNOLN-# 

-.OATA  CHECK  CUNTINUES.. .")# 


003i  IS  0267  LONG#  NEXT  SEG  0032 


START  Or  SEGMENT 


ri4!S<"  INPUT  NUMRFR  or  CuiLlSSlON  must  BI  IN  ASCENOING  ONUEN-# 
".DATA  CHFCK  CONTINUES...")# 

rL*3S<"  -#"  there  are  a  t u i a l  or-, is#-  input  data  errors"/// 

"  axe  problem  irr  computer  ano  correct  errors,  rmter  luck  next  -# 


elassi-  :nput  uata  seems  tu  be  allright,  execution  continues. ">i 


LIST  L  1  ST  1 { JNNf LH ) i 


003A  IS  0056  LONG#  NEXT  SEG  0032 


LIST  L  1  ST ?{ JNUMAX ) I 
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list  ustmjnmm )i 

1  nooco 

0010 

LIST  LIST*(JNPCUDI 

1151000 

0015 

LIST  LISTS'*?*)! 

1 15?000 

oo?o 

l  1ST  l  1ST6( JNAG)I 

1153000 

0025 

L 1ST  L  tSTf( JNHMAK >| 

1154000 

0030 

l  1ST  l 1  ST  ft ( JNHNA  * ) 1 

1155000 

0035 

LIST  L1ST9(  JJCHUOJ 

1156000 

0040 

imt.  1 3<M.*o.t. t Of t»«*uio»u 3h.l rso.L iro»t?oo,i??o,i jou,l?»o,l?bo. 

1157000 

0045 

1  J70.1  3?0,L  JA0»l  3«0*t  *?0,L^S0l 

H56000 

0045 

1159000 

0065 

IF  JNKTL«<^  Thin  go  TO  |  301 

1  IhOOOO 

0046 

«N  I  TF (PHlNT,rL?S#llSTl )l 

1161000 

0047 

jjLHrcK*.ijCHfCR<  i  i 

1 1 69000 

0051 

L30I  IF  jnom  a i o  Then  r,u  »u  ’Sol 

116J000 

005? 

•HI TF(PNlNT,FLAS,LiST?); 

1 16A000 

0054 

JJCNFCK* JJCHECK* | 1 

1165000 

0056 

L‘.»>l  IF  JN*ATS10  T  MF  N  Gil  Tj  L  '  1 

1 1 66000 

0059 

H*  l  T  F  ( PN l NT  *Fl^S»L1ST  3)1 

1  16  7000 

0061 

JJIM*  G*»  JJCNf  C*M i 

1166000 

0065 

l7U«  IF  JNKCOLSPA  TmFN  GO  1»  l«0| 

1169000 

0066 

*n|  Tf  { PM  1  N 1  »FLf,S*LlST<)i 

1  l 7  0000 

0066 

JJi>FC**JjeHf  C  6  ♦  1 f 

1171000 

0072 

1  90 1  IF  JNPA*?5  ThFN  GO  TO  L 1 1 0 1 

1  1  7?000 

0073 

KH1TF(PK:nT,Fl1US.i|STS)I 

1  1  73000 

0075 

JJCMFCK* JJCwK*  M 1 

1 1 74000 

0079 

L  1 1 0 1  !F  jnag^)7  T  mf  n  G;;  Tj  LI'oi 

1 1 750C0 

0060 

bn ITFCPH INl.FL l?S,L  ISM)  1 

1 1 76000 

006? 

JJtMFCX* Jjr«EC«41 l 

l  1  77000 

0066 

Llioi  |»  JN  W  M  A  *  S  1  00  TmFN  C.u  To  11501 

1 1 76000 

0067 

BN1TF(PN1NT.F11«S#LISTF)I 

1  '  79000 

0089 

JjCMFf  If* Jjf Mff 6*1 | 

1 1 60000 

OC93 

LlSOl  IF  JNM*  A  A  4  |  00  T  Mf  N  GO  10  UFOI 

1  181000 

0p9  A 
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HHlTE(PRlNT,f L165»LlST8)J 

1102000 

0096 

JjCHECK+JjCHeCK+ll 

1  103000 

OlOO 

J1NAG*JNAG-1J 

1  18*000 

0101 

11701  JJ*1J 

1 ! 85000 

0102 

no  b r o i m 

1 IMOOO 

0103 

if  svci^Gt  jJUSvcA^cr  jj+i  j  then  r,n  in  L200J 

1107000 

0103 

NRIH  (PRINT»FL160U 

1 1  bROOO 

0J06 

JJ<  HFCK*  JJOEC«M  » 

1109000 

0109 

12001  ENO  UN!  1L  (JJ»(JJ«U)>JlMAr,l 

l  iuoooo 

0110 

j  I  N  p  A  ♦ JNP  A  *11 

1191000 

0113 

JJM» 

1197000 

Oil* 

DO  KFG1N 

1193000 

0115 

if  svc  ip  a  c  jjiisvc  ip*(  jjm  j  then  r,n  rn  i??oi 

119*000 

0)15 

"RITE (PRINT #FL?1S>! 

1195000 

0117 

JJCMF  CK»JJf Ml C  K ♦ 1 1 

1  190C00 

0121 

L??OI  END  UNTIL  ( JJ*< JJM ))>JINPAI 

1197000 

0122 

if  jnpfirso  then  go  rn  ijoui 

1198000 

0125 

jUmi 

1199000 

0126 

DO  MFC ! N 

1200000 

0127 

JNHFMVNRF  (Nii l  J |  1  11 

1201000 

0127 

J I NRF ♦  jnwf • 1 1 

i?02000 

0126 

JJM  J 

1203000 

0129 

Of)  PFG  1  N 

1 20*000 

0130 

IF  SVRf  AN(,C  JJ*  jlM>SV«*  *NGC  JJM  .jlll  THEN  r.O  in  L2*0J 

1205000 

0130 

NRITE(PH1NT»FL?35?I 

1 206000 

013* 

C»CA1I 

1 207000 

0137 

L2*0t  END  UNTIL  (JJMJJM3)>J1NMF» 

1208000 

0 1  3b 

LNO  IJNVII.  (  J1 1  *  (  JllM  ))>  JNHFLHJ 

12090C0 

01*1 

Jl  1M 1 

1210000 

01*3 

OP  PFG1N 

1211000 

01«« 

JNRF  l^SVNHFCnSf  JH  Jl 

1212000 

0  1** 

J  I  NWI  WjNKri-ll 

121)000 

01*5 
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JJ*1I 

1214000 

0146 

0(1  BfGlN 

1215000 

0147 

If  *VftricUil  JJ*  J|II>$V"*I.CUS1JJ*1  *  Jill  Ini* 

6U 

in 

L?»0| 

1210000 

0147 

wNlU(PHINT»fl.?70>l 

121 7000 

0151 

1216000 

0154 

l?60l  f  N  0  UNTIL  ( JJ*( JJ*1 1 )>JlNRfl 1 

1219000 

0155 

inn  UMH  <  JIW(  jllM  ))>JNKFIHI 

122OCO0 

0158 

LJ»oi  Jiifi; 

1221000 

0160 

on  pfmn 

1222000 

0161 

If  SVMHIF 1 Jll)«l  Thin  UU  Tu  L370| 

1223000 

0161 

JNW>  ?*SVNI>f  CilSf  Jim 

1^*000 

0  1  6  J 

JlN*r?*jNf<r?-i  i 

1225000 

0  l  6  4 

JJM  1 

1 22*000 

0165 

JO  RllflN 

1227000 

0166 

tt  ivofrcosi  jj»jii  nsvimeost  jjm •  ji i i  tmfn 

60 

TO 

U?0l 

1 226000 

0166 

ho  1 1  r  (  pm  |  »4  i  •  F  L  ^  1  ^  )  1 

1229000 

C  l  7U 

jjc*r  c»* jjCmcc*»i  i 

1230000 

0173 

<3201  F NO  until  ( JJ*( JJM )>> J1NBT7I 

1  23  *,  000 

0174 

JNOf  3»SVNPm*N*»T  J1  11-1  I 

1232000 

C 1  7  7 

Jj»  i  1 

1 2)3000 

01  78 

up  arm 

1234000 

0179 

If  SVPH4NG( JJ# Jll  l>$VP*»NGl  JJM , Jtl 1  1W£N  GO 

i  TO 

L  J*U» 

1235000 

0179 

«ft!Tr(PM|M»ril5S)  1 

1236000 

0163 

jjchfc**  jjCmj  c«m  t 

1237000 

0186 

L36UI  f  NO  UNTIL  t  JJM  JJM)  )>JNRf  11 

1236000 

0166 

Ljroi  f*n  until  f  JllMJl  l*!)l>JNM»T| 

1239000 

0190 

JJ*  1  > 

1240000 

0193 

01  HfGIN 

1241000 

0194 

ir  SVPAGf  JJMSvMGt  JJM  1  TNfN  GU  TO  13901 

1242000 

0194 

««iTf  tp»iNT#n  mu 

124JO0O 

0196 

jj'MFCK^jjrmcNM  i 

1244000 

019V 

iJOOl  fNn  UNTIL  (JJMJJM  ))>J1NAGI 

1245000 

0201 

0 
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JINPCOL*JNPCOL"1I 

IPAAOCO 

0?C3 

JJMI 

1PAFOOO 

0?0» 

00  PEG1N 

1PAROOO 

0?05 

IF  SVlNCOLf JJJSSVINCOLt JJMI  THEN  GO  TO  L* ?0 1 

12*9060 

0?0i 

WR1 TE<PR1NT*FLA1S)F 

12*0000 

0?0/ 

JJCWFCUJJCHECKMI 

12*1000 

0?11 

L*20»  FNO  UNTIL  (  Jj*(  JJ*U  )>  JINPCOLI 

12*2000 

<1?1? 

IF  JJCHLCKSO  THLN  GO  TO  IA3UI 

12S3C00 

0?l!> 

NHl TF (PRINT [PAGE J  )l 

1  2**000 

n?l» 

HH1TF(PR1NT*FLA3S*LIST9)I 

12**000 

p?l» 

Gil  TO  FlNTSl 

12*6000 

P??J 

L  4  SO  t  NH1TF(PRINT*FLaSS)F 

12*7000 

0??s 

ENOI 

12*6000 

n??v 

OOJ*  1$  0?3H  LUNG*  NF*'  Sec.  0006 


PHUCEOUHE  ShmAINI 
BlUlN 

INTK.FR  JJ2*  JJ«U9 

RE*l  JCNAT1U*  JFRACTJ 

COMMENT  THE  fULlOMNG  PROttOURfS  *RF  USEO*  SR  I N I  T  Al  ,  SRSt  A*CH*  SR  *VR  AGl  * 
ft  Ft  ANGLE  *SRrftTHL*SROSTPO*SRR«NOA*SRSCT«NG*&ROFTECTI 

FOHMAT  F  LI  I  ("  HS  IS  GREATER  Th«N  MV<  NON  1 ,  ">* 

F  L  /"  CANNOT  LUCATF  REGION  CONTAINING  SOURCE  PARTICLE.")* 

FH36C/"  PROGRAM  FAILED  TO  LAlCULATF  0 1  STANCE  TO  A  0OUNO AR Y • " ) * 

Fl?6(/"  LOC  •"*!«*"  NPAMT  ■  "  *  1  A  *  "  NSP  •"»  1  A*"  NH1ST  «"*16*"  NC*  ■  "* 
1*»"  Ncot  •"  *  1  *  /"  HI  ■”*»!*€ 10.3*"  R1  •"*S1*E10.3,"  cOThI  •",51* 
no, 3*"  ftlTMl  ■»,S:*E!0#  J/"  CPH11  «"*S1*F10.3*"  SPHll  •  "  *  Si  *E  1 0 . 3  • 

"  *  A  I T  ■"*  S! ft  10, 3>  * 

FLVM/"  LUC  •"*!**"  NCR  «"*U*"  NC*  •"*13*"  R  •  " > S 1  * E 1 0 ,  « *•  H  ■"»S1* 
F.  1 0  *  3  /  "  COT  m  ■",S1  ,F10,3»"  SKh  »%M,f  10.3*"  C1PH  «"*S1,L10*3* 

"  sph i  «"*Si*no.n* 


12*9000 

OJI» 

126C000 

031V 

1261000 

0319 

ST»"! 

OF 

sruMCNt 

1262000 

0000 

1263000 

0000 

1 ?6*000 

0000 

126*000 

ocoo 

START 

nF 

SF&MINT 

1266000 

0000 

1 26F000 

nooo 

126SOOO 

0000 

1269000 

GOOU 

1270000 

oooo 

12? 1000 

0000 

l?r?ODO 

oooo 

17M000 

oooo 

12M000 

oooo 

00  35 
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miom/*  »  Nffi»ii»r  nit  2t*j  mth  l(*sth  »h  oiNt»»Tto,  i»l«*>si.cio. jw 

l"C  *"«|*,*  H C a  •■*!»•*  ICO  ■*»!»»*  t  •“.SI'tlO.3. 

•  vi»osi  ■•.si.no,)/"  o i » r  h«ct  o'  •*» 

n«. t, *  «i  ••.u.rio,*/*  "no  ncm  •*»!», *  ni* 

» 

rt  Uf  c  /■  inc  •••M."  ic »  •“*!*••  •"*14.*  H  SI  #  C  10,3#"  TS  •  •* 

M.MPJ/*  9  T  ••.M.nn.Ji1  CPHf  ••,$!  ,1*10.  3#*  *  •  *  *  M  .£  1 0  *  3  )  » 

7».177</*  C4*>nit  n*0  »rGlU'«  CONTAINING  PAPMClf  CQO»OINAUS* 

►  1ft. 3."  #»'»!>l,{|0() 

FLM4(/-  l«C  •■ » | A , *  UC*M  NC«?  ••*IA,«  0 1  ST  »J.S1 *1 10, 3  » 

•  ni  •••S1.M0.3/-  T  •" *  Si •£ l 0*  3*"  MiAOST  ••  •  Si  •  l  \  ()•  3  » "  M?  *»*S1. 

►  10. J.*  IS  V|*f 10# j/«  *T  ••»Sj#r 10, 3»*  CRni?  ••** 1*E 1°. 3*"  *2  ■"» 

S  1  •  {  1 0 , 3*  *  Srm|?  *"#Sl*C  to,  I/*  coW  ■"*S!»flO,3**  SI?m2  S| » t 10, )• 

•  mrni  *•“ » i * ) i 

LIST  l  1ST  |C  J1  n  r  •  j^pArT,  JN5  r*»  JNHIST#  JNCp»  JRrnL»JHl»  Jj|»  JC^ThI*  JMTmI* 
jCP*M. JSPHI! , jwA 1 T  > » 

Lis?  L  1ST?<  JL'JC.JNC^JNC"#  JM#J*#JCnTH»JSlTM»jCPMl.  JSPHI  )l 
LIST  l  I S?  3( JPl >» 

LIST  •  T  jTA<  jlOC  ,  j*c*».  JNC* .  J  • *J SUNOS?, jOl ST • JftHOT.jOT, jMl , jM*0* jNC*. 

LIST  1  1STS(JLDC*  JNL“»  Jh»jTs*J«T#JCPm|*J«)I 

l|N?  L1ST6C JH. JN)| 

L  !  ST  L  1*»TMJtOC*JNC«ltJ»iCM**jfmT,jnT,jT,jSUMOST*JM?»jTS*jMT.jCPHl?# 

jh?,  jSf’Hi?.  jcium?,  jsi  th?#  jncul  >i 

Hf  G  1  H 

L  Amu  l  3.1  2  *l"»17*L  lO.L'-O.L'O.L  3*0.140.1 10**1 110,L1  30,1  1A0*L1A4,l2S0, 

LSSO,  Lt.nO.  I  ISO.  LI  TO.  I  )600»L  1  65  .  L  1 6  1  * 1 1  66  * ►. 260  ,  L  1 60 , 1 166 , 1 3  1 0  *  12*7  * 
i 256*l?60»l3?o.lo»li60oi 
SHITTM  SH(101#L16S.II»S.L101  »tlO|l 
COHMfNT  SUMOUUNF  HAIN(PL*N£>I 


1275000  0000 

1 ?760Q0  0000 

1?77000  oooo 

1 ?  760C0  oooo 

i?roooo  oooo 

1260000  oooo 

1?M000  oooo 

1262000  oooo 

1 263000  oooo 

126A000  OOOO 

1?8^000  oooo 

l?6AO0O  OOOO 

1267000  oooo 

1266000  OOOO 

0036  1*  0269  LONG*  Nf  XT  $IG  003S 
1269000  OOOO 

1290000  001 A 

1 ?9 1 000  0020 

17Q2000  003* 

1293000  0040 

129A000  005* 

1295000  0059 

1296000  0073 

1297000  0060 

1296000  009* 

1299000  0104 

1300000  0 1 04 

STAN?  Of  StOXlNT  ••••••••#•  0037 

1301000  oooo 

1302000  0000 

1303000  OOOO 

130A000  0005 


0 
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JNHIRT* D! V  JNGROUPJ 

: 304000 

0004 

jNbP* JNP*RT ♦! I 

1 304000 

0007 

JNH1$T*0| 

1 307000 

0006 

JNUEVG*0I 

1 30*000 

0009 

$R1NIT*L J 

1 309000 

0010 

JNRREG*JN$nREGI 

1 310000 

0010 

j*HO*»OJ 

131 1000 

0011 

JH»jm$| 

1 312000 

0012 

JR*0I 

1313000 

00)2 

JJ ?♦?  J 

13)4000 

0013 

DO  BEGIN 

1314000 

001* 

lr  (XPRMJmS-SVMVI  JJ?  J>  ><V  THpN  fill  TO  13  fl$F  IP  X  PR  ■  0  T  m  pN  GU  1«* 

1 316000 

001* 

L?l 

1 31 f 000 

0017 

thO  UMU  (  JJ2*(  JJ?M  )  )>JNOMl 

1 31*000 

0018 

NH!TE(PRINT»mi)l 

1319000 

0020 

GO  TO  LOI 

1  3200  GO 

0023 

Li*  JT*UH  SVTAUl JJ7-1 3 ♦ <  S V 1 *UI JJ2J»SVT*Uf JJ7-1 J ) «( JmS- S VmV I J J2- 1 1 ) ! ( SVh V 

1 321000 

002* 

r  JJ?i-svHvr  jj2-i  ui 

1 372000 

0029 

GO  TO  IM 

1323000 

0032 

L2»  JTA0H»SVMU(  JJ?)  J 

1 32*000 

0032 

LR;  Jf RMURS* JNNUAI 

1  3?4n»'p 

0C3* 

SRSt»MCM| 

1 326000 

003* 

If  JERRURS<JRHU*  THf N  GO  TU  LOl 

1 327000 

00  34 

If  JNCR«JN^ORtG  THEN  GO  to  Iff 

1 37*000 

0036 

*KITE(PMNT»ri6>) 

1 3i 9U0C 

0037 

GO  TO  LOI 

1330000 

00*1 

Lf»  JREH»0| 

1331000 

00*1 

LlOl  IE  ( XPM*( JNP*»T-JNSP) >>0  »WLN  GO  TO  L?0  ELSE  IE  *PR<0  1H£n  GO  Tn 

1 337000 

00*2 

L*0) 

1 333000 

0046 

SRAVRAGL 1 

1 33*000 

00*6 

IF  JNH|ST«JNHHAX  Then  GO  TU  L60) 

1 334000 

00*7 

GO  TO  LOI 

1336000 

00*6 
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1*0  1  SAANGl  <  | 

1337000 

0046 

tr  jf R*UBS< JanUA  Thin  go  To  L3*0J 

1330000 

004V 

J*SP*0I 

1339000 

0050 

17CI  JNH| ST* 1 

1 3A0000 

0051 

jnwi n *1 1 

1 341000 

005i 

JlUCOO) 

1 3*?0C0 

005* 

J*SP*  j*iSP*1  1 

1 3- 3000 

005* 

JNl *ft| 

1 3A40G0 

0056 

J  T  A  UH?» J  T  4UH | 

1 3*5000 

0056 

JHi  * JMS# 

1 346000 

0057 

jNC«*jNSn»»T  lit 

1 3*7000 

0056 

jcutmi  *sws«nr,(  jwspi  i 

1 3*0000 

0059 

JS|TNl*SOBT(i-jCOTHJ«jrnTHl )l 

13*9000 

0060 

JCPHI  1*  1  1 

1 350000 

006? 

JS^MI 1 *01 

1 351000 

0063 

J»*f T»*V*f  IGMT1  JNSB  Jl 

1 35?000 

0064 

JC  ApM|* 1 • 

1353000 

0065 

j  S  a  p  m  |  *  0  j 

1 35*000 

0065 

JM.OIO  » 

1 355000 

0066 

It  j|i)U»*PSO  T  Mfc  N  GO  TO  met 

1 356000 

0067 

«M7f  (P*l«T*H76,USTt  '1 

1 357000 

0066 

tout  jiur*?oi 

1 356000 

007? 

JN*  JR)  | 

1 359000 

0073 

JM*  JM  )  1 

1 3 60 COO 

0074 

..•Mi  :  [  *ni 

1 361000 

0  0  75 

JT  A|IM|  *  JT AUh?I 

1 36?000 

0076 

JCDTm*  jCIITm  1  1 

1 363000 

0076 

JS  l  TM* JSI TH1 1 

1 361000 

0077 

JCp*l* JCPHtl 1 

1 365000 

0076 

JSPM|*JSPH|  1  I 

1 366000 

0079 

jnCn|*jNCRI 

1 367000 

0079 

JNCMfrSVN AT f JNCH i  1 

1366000 

0060 

JJ  j!DUMpSO  THIS  on  *0  lioul 

I 369000 

0061 

MTr(PK|NT,ri96#L!M?)J 

i 370000 

0067 

LiOOl  SwPft  TntJ 

I  1 7  1 000 

0066 

tr  Jf W»OH$< JMHIU  ?MiN  Gil  TJ  L3«0* 

notion 

006/ 

IP  jPl>0  THIN  GU  Tn  L ! 1 0 1 

1373000 

0066 

,-Pl  Tf(PHlNT#rtl()p,»l  IST3JJ 

1 3 7ft 000 

0090 

jn«n4*  t 

l  3/5000 

00V  J 

r.fi  tn  (340i 

I  3  7  60  0  0 

009b 

LUO»  jT*jPi  ■ 

|  iff ooo 

009/ 

1  3/6000 

009/ 

jnunj 

13/9000 

0096 

jSUmoST  *01 

i irtoooo 

009V 

JHU  jhi 

1 3*1  000 

oioo 

l  l  j o »  skosimiw 

1 3«?000 

oiou 

If  jf  N»II*?S<  JKH|»*  TH|  n  r,o  TJ  L  3  ^  0  1 

1  TO  30  00 

0101 

IF  JNfP?n  TmTN  l.n  rn  Lift 01 

1  36*000 

0  1 07 

MNlTr(PN|NT»rL  I4A)| 

1  365000 

0|0ft 

f,t'  Tn  i  oi 

1  3*6000 

0 1 0  / 

LI  ftOi  JbtlM,)S  T  ♦  JSUMH5»T  ♦  Ji)  1  S  l  f 

I3«'000 

0106 

JI  1  OS°| 

| *06000 

AjOV 

Tf  jTOm*Psn  j«In  r»n  Tn  UMI 

I 30  »C0o 

0110 

*MTf  CPhINT.Fi  I«?»L1ST*)J 

| 390000 

0111 

l.lftft»  If  JSlpmos:>JT  T Hf ^  GJ  Tl»  17501 

1391000 

on  3 

JKN*$V*«H  JNf  H  i  l 

1 397000 

0116 

jh* jM*jcnTH*jn; st l 

1 393000 

0117 

ji s* jni st  * jsi 1m  f 

1 39*000 

0||9 

JM !♦ I ( JW* .)*♦ JTS« JTSk JCPHI ) l 

1 39S00O 

0170 

If  joT>jSMVfti  tmfn  r,o  th  L3noi 

I 396000 

0  i  75 

J  C  H  M  ?  ♦  1  t 

1 397000 

0176 

jSPHtfO) 

1 39600T 

01?  7 

r,u  in  i  600 : 

| 399000 

0 1  76 

LS'iOl  JCPHI  •(  .Its*  JH«  JCPHl)/  JUT  P 

1*00000 

01  30 
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JSPmI* JK>J<PMl/J«1 | 

1*01000 

01)2 

L  600 1  JH ♦ JH  T 1 

1*02000 

01)4 

JNLM* JNCM) 

140)000 

01)4 

JIUC*60I 

140*000 

01)) 

IF  JTOHHP5O  T  ML  N  GO  TO  ll)U| 

1*0)000 

01)6 

WhlTHP«lNT,fL!A7»L!ST  t)| 

1406000 

01)7 

IDOI  TF  SVRRUUNOt  JNCH110  'MtN  GO  *0  tlfOl 

1407000 

01«1 

jM2*jM-2«jOf Ll**jCOTMJ 

1*04000 

014) 

JJ2*?F 

01406100 

014) 

nu  fl JCils 

01406200 

0146 

IF  (xPN*(  JN?-SVMV(  j^DXu  TmI*  go  TO  LlftOOl 

01*06)00 

0146 

fc*0  UNtTL  ( JJ2*< 

01406400 

0149 

JJ?* JNUMI 

01406)00 

01)1 

tunot  JT»UM?*5VT4U( JJ2*J  JMSVTAU1JJ21-SVTAUI JJ2M  )1* 

01*06600 

01): 

CJM?-.%¥MWljj2«l  l)/OYMVlJJ21-SVMVCJJ2-l  JJ| 

01406700 

01)4 

JH?*JW?*J0C  l!  A*JS1TM«JCHM!I 

1 409000 

01)9 

IF  JNCMI  TMFN  GO  TO  L1600I 

1410000 

0162 

JNK|.FI*JN«F  F  LM» 

1411000 

016) 

IF  JNRFFL-JHA*M<1  TMEN  f.n  lU  LlAOOl 

1412000 

0164 

JNMAxN»JNH*kR»ll 

141)000 

0166 

fill  TO  LI 01 

1414000 

0167 

L160O*  JRfFl»lF 

141)000 

O166 

„  *KH»JNCR> 

1416000 

0166 

L  Tl  JNRR  )l 

1417000 

0169 

fiO  TO  SNfiOl ( J JA 1 1 ) 1 

1 416000 

01  70 

L1M  I  jCO TH?» » J  | 

1*19000 

0172 

GO  Tn  11661 

1420000 

0174 

U6)»  JC(1TM?*|I 

1421000 

0174 

L166I  JS»|TH2»0I 

1422000 

017) 

1*2)000 

0176 

12*0 1 

1424000 

0177 

JR*|T*J*FA1T«(  SVALBfOOl  JNCHI*SVSlfiNnTUNCB)«JCOTHll 

142)000 

0176 
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go  TO  1 260 J 

i*2600o 

0181 

U'Ot  JMPHCG*SVHPH( J J1 , JNC« jl 

1*27000 

0181 

SP5EAHCH J 

1*26000 

0 1 83 

IF  JEHflUR$<JNHU*  FHCK  GH  TO  13*01 

1629000 

018* 

IF  JNCP>0  THEN  U0  TO  11801 

1  630000 

0185 

NHlTCtPHINT#fLlFr#LlST6)l 

1631000 

0186 

Gtl  TO  101 

1632000 

0 1 90 

L 1 »0  t  JNC H?*  JNC H | 

1633000 

0191 

IF  SVtHPI JNC«?I*SVpMP( jNCRli  THfN  GO  To 

1*36000 

0 19  1 

SHKANOAt JIB***# JKN)I 

1*35000 

0193 

IF  jflNXSvfwPt  J5CK2  J/SvtHPl  JNC*1  ))  THEN  GO  TO  l3l0l 

1636000 

0  1 9* 

J**l  T*JkA1T*1  SVtMPj  JNCPI  1/6VEHP[  JNC«2  |)J 

1 637000 

0196 

GO  TO  11681 

1*3*000 

0 1  9V 

L 3 1 C 1  SVNKTcnr  JNCH? )*SVNKlCll( JNC»? 1*1  1 

1*39000 

0 1  9V 

jnhstop*jnpstop*i  1 

1*60000 

0?0? 

GO  TO  i ini 

16*1000 

0?03 

tl«8l  JOTOOT  +  JDISTJ 

166^000 

0?03 

GO  TO  L 1  301 

1*63000 

0?0i 

L  250 1  JUTSnjl-Jr>T| 

16**000 

0?05 

JHP*JH4JC0TH«J01ST| 

1*65000 

0?07 

JT  S* JOIST  * J51  TMl 

1  **6000 

0?09 

JHT ♦SORT ( JH* JH4 JTS*  JTS*?* JHkjTSk JCPMl ) 1 

1**7000 

0?10 

IF  JRT> JSHVAL  THEN  GO  TO  U57| 

1*66000 

0?  1  5 

JCHHT?4|.  t 

1**9000 

0?  1 6 

JSPHI240 1 

1650000 

0?17 

GO  TO  125&I 

1*51000 

0210 

L25N  1C PHI ?♦( JTS* jhkjcphi J/JRTJ 

1*52000 

0220 

JSHH1?4JR«JSPH1/JRTI 

1*53000 

0222 

L258I  JH?4JKTI 

1*5*000 

022* 

JCUTM?*JCOTH| 

1*55000 

022* 

JSITH?4JMTHJ 

1*56000 

0225 

jfHACT*(JH?-SVHVC JJHPJJ/CSVHVCJJMT 1-SVMVI JJMp J)| 

1*57000 

0226 

458000 


022V 


J*«4T*0*SVSC4TRi jjMR)»f SYSLaTRI JJHT l*SVSf aTR( jjH§  ))» jFRAC?l 
jR*TLEC*SVR4YttC  JJHRIM  JjV**T"t  JJHY)-5VR*YR(  JJH9))«jFR4CTJ 
J»*lT»JM*lT»J*H4Tlni 
12601  JNCR'*JNCN| 

JtUC»70J 
5W5C  T4NGI 

If  Jf MRUR5< J*MU4  TH l*i  00  TU  13*01 
$Nl)ETEtTI 

If  Jf*RU3S<J*K(IA  THEN  GO  TU  L  3*0l 
IF  UIOOWRSO  TnE  N  on  TO  l?6V| 

WRIU<PN!NT*F1264#U$T7|» 

L?69t  JNC0L*JNC(U  ♦! I 
JNDGO*  j.<UOO  *  |  f 

IF  t’NCOL* THr N  00  TO  L  320J 

Jh*XCOL*jM*XCULMI 

GO  TO  L 1 0 1 

L  320 1 

JMUJM2I 

JKUJR2I 

JNCM* JNCR2 I 

if  j**n>j*tn  inch  on  to  l«ui 
JN»MT»JNM*|T»I! 

GO  Tn  LI n I 

L3«0t  IF  J*Ml)4>JClt*  THEN  \>\)  TU  101 
JfHR0R5*JRH04l 

on  Tn  L I  01 

LO*  f  NU  CNni 

PNUCTOURC  5HINPUTI 
REtiJN 

ORR  TNT&GCH  OX1#OX2I 


1*59000  0232 

1*60000  0235 

1461000  0236 

1462000  0237 

1463000  0236 

1464000  0239 

1465000  02*0 

1466000  02*0 

14670GC  02*2 

1466000  02*3 

1469000  02*7 

1*69001  02*6 

1470000  024V 

1471000  0250 

1472000  C252 

1473000  0252 

1474000  0253 

1475000  0253 

1476000  0254 

1477000  0255 

1476000  0266 

1479000  0257 

1480000  0258 

1461000  0260 

1*62000  0261 

1463000  0261 

003/  IS  0263  LONG*  NEXT  StO  0035 

003b  IS  0110  LUNG*  NEXT  SEG  0006 
1*84000  0319 

1485000  0319 

1486000  031V 
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STAhT 

OF  SEGMENT 

INtEGFR  Jll».ll2»  Jl3»  JU#  JK"ECK»  JJ»IL»JLISt#  JLTS2*  Jl»  jjl 

1  A  A 7000 

OOOC 

Ct'MMFNT  THf  FOLLOWING  PROltOuHFS  '  USEOl  SHCHEC Hi 

IAHAOOO 

ooou 

fukhst  iun(Vi»)i 

1 AA90CO 

0000 

STamt 

OF  S-  GHENT 

Ft  1 70(  AH1 0  #B  )# 

1A90000 

0000 

fliip<?ito»»Rio.»), 

1  A  Vl 000 

OOOC 

f  l 1 30(Bkin,e)» 

1  AV7000 

0000 

FL2in<?Iin»Rio.*), 

IAV3000 

nooo 

rt*30<315,R5.?#MS>» 

1  AVAOOO 

0000 

rL3tn(2«in.a.iio.Rio.B)« 

IAVSOOO 

0000 

f L* 10(A  1 1 0  )# 

IA9A000 

0000 

FL>lO<?MO,7># 

1A97000 

0000 

FLfifKMtn). 

lAvonoc 

0000 

FL?(*?#"PHnoUCT  OF  NA7A  ANU  NO*AX  HAS  EXCEFOEO  AO"/X?# 

1A99000 

0000 

"JUR  IS  TEHHINSTEP"). 

1500000 

0000 

FLROSl/ 

1501000 

0000 

«  THF  NlIHRER  UF  HTSIUHlES  »«S  NOT  FOUHl*  UIVlSlMLl  RTf  THt  NUH8"» 

IS0200P 

0000 

"ER  OF  OFVUHUN  GROUPS."/*  THE  NlIHRER  OF  HISTORIES  N»S  RESET  TU",1») 

1  SO  3000 

0000 

9 

150A00U 

0000 

FLV2n</"  INPUT  NUHRFR  (IF  HSIERUIS  OOFS  NOT  SGREE  »!TM  NH*T.  »)» 

1505000 

0000 

FIVSOC/"  INPOT  NUMREH  OF  RUI»NO*RltS  OOFS  NOT  AGREE  WITH  NBMAX,«)> 

1 50*000 

0000 

FLRBOT/"  INPUT  NUHRFR  OF  REGIONS  OOFS  NOT  SCREE  H1TH  NRN*X.">« 

1507000 

0000 

Ft  10101/"  INPUT  NUHBER  OF  UlTECTORS  OOFS  NOT  SCREE  HI TH  n0h«X,»>» 

150A000 

0000 

FL!0«n</"  input  nuhrer  nF  PRINT  COLLISIONS  ooes  NOT  sgree  KITH  NPCIL.")» 

1509000 

OGOO 

F  L 1 070C  /"  INPUT  NUMBER  OF  KkInT  COSINES  OOFS  NOT  Aft  REF  WITH  NPA.*)» 

ISIObOO 

0000 

fi ?noo</ 

1511000 

0000 

"  INPUT  NUhSER  <lF  REFLECTION  HOUNflSRlFS  PPiS  not  «GRFE  NITH  NRFl"*"P.") 

1517000 

0000 

9 

1M  3000 

0000 

FL703CC/"  INPUT  50URCF  ANGLE  OPTION  OOFS  NOT  AGRFE  «ITH  N  AOP •  "  )  # 

1 5 1 A  000 

0000 

FLi>060(/"  INPUT  .IUMHER  OF  !»UURCF  ANGLES  OOFS  NOT  AOMEE  WITH  NAGb">» 

1515000 

0000 

FIJ301"  HD(J)  IS  GRf  ATCH  1*AN  My(NOM)  TOR  J2«  *•!•#«.  ">l 


I51600P 


0000 
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List  listm juexM.jri . 

LIST  LIST?(?08  U*t.l  STEP  1  UNTIL  JNOh  00  ISVNVlOMI.SVUUtuM  I '5V5C6TNI 

o*?i.svN***to*i  mi 

LIST  LTSTKSVNOFCOsI  JI1I»SVNPN*NG( JII  1.SVMVLUI  Jill  II 

LIST  LISTtlrON  OX  1 « I  STEP  I  UNTIL  JLISI  00  SVO I FCOS I  0* I . J I  1 1  )  » 

LIST  I  ISTStrOH  MI. |  STEP  1  UNTIL  JLISI  flO  SVP|)CftS  (  0»  1 » J  1 1  I  )  » 

LIST  LTST»v'rn«  0*1.1  STEP  l  UNTIL  MTS'  00  5VPU*S|GI  0*  I  » JI  I  1 1 1 

LIST  USTTlrON  UI1.1  STEP  1  UNTIL  J  1 1  00  I  SVNBIJUNOI 0  *  1  I  »  SVI  f  TPt  (  0*  1  I  ,  SVC 

oEtioinni 

list  ltstbceon  u*i.i  step  i  until  .ii?  on  isvnregiuxii>svnb(i)*i]>svn*ti 
0*1I.»VENP|0*II.F(|N  ft»?M  step  I  until  «  mi  (SVTHIUX?. 0*1 I.SVNPNIU*?. 

oMiini 

LIST  l  I  ST  VI F  ON  STEP  1  UNTIL  J1I  00  I  SVNOI  0*  I  If  SV*DI  0*  1 1 »  SVNP»I  r>E 

n»n.svnpssin»lliii 

LIST  LISTIOIFON  0*1.1  ST1P  1  UNTIL  J11  00  X V IPCOL I  OX  I  1 1 1 

LIST  USTIKFUN  0*I» I  STEP  1  UNTIL  JT2  00  SVC  I  P»t  l>«  1 1  1 1 

LIST  IISTI2IFPN  0*1»1  STEP  1  UNTIL  JN*2*  00  S VC*/ »l 0* 1  I  1 1 
LIST  I  TST1)(SV*LPC0MI JII I.SVSIGNOTI JT1 III 

LIST  LTSTMTFUM  OX  I  » 1  STEP  1  UNTIL  JI3  00  SVPFSN6I  0*  1 ,  J  1 1  J  1 1 

list  iistivfon  n*i»i  step  i  until  jis  no  svpn*to*i»jiin» 

LIST  LISTIOIFON  0*).I  STEP  1  UNTIL  J!»  00  SVNFLCOSi  DX  |  »  JI  1 1 II 

LIST  LISTIKEUN  0*1.1  STE.'  1  UNTIL  JI?  00  SVC  *NG!  0  *  I  1 1 1 

LIST  LISTINIEUH  0*1.1  STEP  1  UNTIL  .11?  00  XVP*GI I) X !  1 1 1 

LIST  LIST  | VCTUN  0*  T  *  1  STCT  1  UNTIL  JI?  (10  SVK* Gl OX  1 1 1 1 

LIS7  L  I  ST?OC  JUS.  JOLONG,  JOELUi  JSNV«L.  JNCO.  JELIN#  JUNIN1I 
LIST  UST?If  JNH«»X,  JNGPftUP.  jNNN4x,JNNN«*,jNCN«*,JNftM«X»  JNP».JNPCOL» 
JNSOP. JNtG. JNNEL8. JNMAT. JNSUNEG. JNt«R. JIBtSE. JINtSl. JIBSS?. JIRSS3. 
jib*s**.'I»*ss>» 

LIST  LIST??(JNHM*X)| 

LIST  LI ST?3( JJ1 I 
begin 


003V  IS  0??5  LONG. 

ISIFOOO 

151*000 

i s i vo  oo 
,120000 
ls?1000 
is??ooo 

1573000 

i5?«ooo 

15?S000 

IS?»000 

is??oon 

I S?AOOO 
1S7V000 
IS30000 
1531000 
I537C00 
1533000 
153*000 
1535000 
153*000 
1532000 
1530000 
1530000 
15*0000 
15*1000 
I 5«?000 
15*3000 
15**000 
15*5000 
15*0000 
15*2000 


Nl»;  51 G  003* 
0030 
0010 
0016 
002* 

0033 

00*3 

0053 

0003 

006V 

OOFS 

0081 

0086 

00V? 

0103 

Mil 

0|?U 

0|?V 

0138 

01*5 

0151 

0165 

01F5 

018* 

0|V3 

0?0? 

0?1 5 
0??6 
0?3V 
0?*« 

0?»V 

025* 
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L6HEL  LS.LNOO.L 700, L600»L500»L«00>L 300. LJon.LlPO.LBO.LOOO.L 3000. k  1»5. 

15*6000 

0*56 

start  nr  segment  * 

L106,L107,LI60,L505,L506,L507,L5*0,L560,Llll»L90a,L930.L960,L990. 

15*9000 

0000 

LIO*0»L|05O,L|Oa0,L*0|0»L<««0»L?07O,L*nB7.L350»L380»L380»L0l 

1550000 

0000 

SNiTTH  SHOO  1 »L 800. L 700.L 000. L 500.L »nO.L 300.L *00.1 lOO.L'O.L *00. L 3000) 

155 1 000 

0000 

SNITCH  SWGn?*L5#L5?0»L5#L5*UI 

155?000 

0006 

jn**atp*oj 

1553000 

001 A 

jN8MAXP»0I 

1554000 

0015 

jnnhaspmii 

1555000 

0016 

JNKf LBP^OI 

1556000 

0017 

jnomaxp»oi 

1557000 

0016 

JNHCOLP»OI 

1556000 

0016 

JNHAP»OI 

1850000 

0019 

JNAGP»OI 

1560000 

0020 

LSI  JNOGn.fll 

1561000 

00*1 

hi  »d(c»hd.fho.h  smt  r  inis  ji 

186*000 

00*1 

GO  TO  SNGOlt JLI8N6T1I 

1563000 

00?6 

L5Ul  JNUM* J 1 1 1 

1566000 

00*8 

HE»0(C6HO.FL170»L15T*>IF1N15  11 

1565000 

00*9 

r,u  xn  lsi 

1566000 

003A 

Linoi  jnh»tp*jnm»th*ii 

1567000 

0036 

SVMATERLf  JNMATPJOll? 

1566000 

0039 

j!»l  1 

15*9000 

OOAO 

DO  BFGIN 

1570000 

00*1 

IF  SVMOTFHLI Jl IPSVNOTEHLl JNMOTP)  THEN  GO  TO  L10SI 

1571000 

00*1 

If  J10JNMATP  1HEN  GO  TO  Ll06» 

1572000 

00*3 

L  1 05  t  ENO  UNTIL  J)>JNNATP| 

1573000 

004* 

CO  70  L107I 

157AOOO 

0047 

L 1  Oft l  JNMATP^JNMATP-1 1 

1575000 

00*7 

LI 07 1  RL A0( C ARO> PL  1 1 0» Ll ST i )Cr:N IS  1 1 

1576000 

00*9 

JLISl*SVNOFCOSt  Jim 

1577000 

0055 

JLIS*»SVNPH6NGtJIl)l 

1576000 

0056 
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IF  SVHFUEE1  JII  III  Then  SO  10  141 

1579000 

004/ 

IF  JL I  Si  SO  THEN  so  TO  LlFOF 

1480000 

0058 

Ri  A0(CAN0»ru30*t  nriNibii 

1501000 

0059 

mi  Aor  CANo»ru  )o»*k:5?4)r  finish 

1507000 

0064 

LI *01  *1  AO(CARU#Fll  30#UST©U FINISH 

148)000 

0069 

GO  TO  LSI 

1584000 

0075 

1.2001  JMIMFXN*  J 1 1  | 

1505000 

0080 

1488000 

0080 

Rt  AO(CANO*FL?lO#Ll  STM  f  FINIS  If 

1 587000 

0081 

Ri  A0(CAK0»ri?30»L!$Tft>! FINm  J 

1588000 

0086 

GO  TO  151 

<489000 

0091 

L 300 *  JNf)MAXR*JI  I  1 

15900 JO 

0094 

Pi  AO(CARO#FL  3l0,t  1ST9HFIN1SI 1 

1 591 000 

0096 

Gil  in  L4I 

1592000 

0099 

1.4001  JNRCOlR*Jl|» 

149)000 

CIO* 

JNHFF.Jl?) 

1498000 

OjO? 

m  »o(r.Rn.Fi*io>usTlO)tri»isi» 

1595000 

010) 

»i»cfr»Ko,rLi  jo.li  sill  nr  i«i  si> 

1496000 

0108 

JNA/A*J13» 

1597000 

Oil) 

»i  »nt  CFND.ru  >o,usn?)tr  mis  if 

1496000 

oil* 

r,0  TO  L5J 

1499000 

0119 

L500I  jNRFLRP*JNOFt«PAl 1 

1600000 

01?) 

SVJNEFLtt JII |»J|?» 

1601000 

0174 

SVNNFHl  JNfri.NNl*Jll  1 

1607000 

0174 

JIM  t 

1603000 

0176 

00  BFGIN 

1604000 

01?/ 

IF  SVNflFNl  J1  WSVNHFHl  JNNM.BP]  THEN  00  TO  L505I 

1605000 

ni?/ 

IF  01 FJNNFLHP  THEN  GO  Tl!  £4061 

1606000 

0179 

L5051  €N0  UNTIL  ( Jl»( JIM > )>JNRKL*P» 

1607000 

01)0 

GO  TO  L507I 

1608000 

0133 

L506I  JNRFL0PAJNRFLGP-1 1 

1609000 

0133 

L50 7 1  PI  AOtCARO.FLSlO.UST1  J)1F  INIS U 

1610000 

01)4 
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JJ* 1 L*$V JRFFL  TI J| I H 

1  A 1 1 000 

0141 

GO  TO  SNG021 JJAllIf 

IMPOOO 

014? 

L520I  IF  J13*0  then  GO  TO  L540J 

1 A 1 3000 

0144 

SVNRFANGI  Jl|  HJ13J 

1 6 1  A  000 

01  A5 

HEAD(CAHn»FLl30»L!*1 1  All  FINISH 

1 A15000 

0146 

Hf.AOCCAHO^L  »30»L  1ST  1M1  FIN  1511 

1A16000 

AIM 

L5«Ol  S^NHFCnsi  JIM  +  JMI 

1 A 17000 

0  1  56 

Rl  An(CAKO«rLl30»LlSTlAnriNISll 

1 A  14000 

0156 

GO  TO  L5J 

1 A 1 9000 

0163 

LAOOI  JN AOPP* J lit 

1 A20000 

0166 

JMGP*  Jl?> 

1 A?1 000 

0166 

RtAO(CAHn#FLl3«>#llSTlF)lFlNI5ll 

1622000 

01A9 

NFAn(CAM0#FLi30#L!STlAllFlNisil 

A?3000 

0 1  7  A 

IF  JNAOPPSO  THEN  GO  TO  151 

1624000 

0lf9 

RMn(CANO#H!  30  #LlST19lt  FINISH 

1A25000 

oiao 

f.U  TO  L5» 

1 6?600G 

0165 

L  FOO  t  REAO{CARU»FLl30#LlST^«)lFlNlSll 

1627000 

0190 

GO  TO  Lb  1 

1 626000 

0195 

16001  Rk*n(CAH0*FLA10fLl5T/l)lFTNlSJ> 

1629000 

0 1  97 

GO  TO  Lb  1 

1630000 

o?o? 

LRU©!  JNPHO04-J11I 

1 A3l 000 

0?0  A 

J1 1 1 ♦ JNA7A* JNDNA X J 

1632000 

OjO  A 

IF  J111SA0  THIN  GO  TO  till* 

1A3300O 

0?06 

NK1TE(PN1NT#FL?1> 

1  A3 A  000 

0207 

HP  1 TE  C  PR  1 N  Ff  FL? )  1 

1635000 

0210 

EHH0RC01I 

1 A  36000 

0214 

LIU*  J  1  OUHP  J 1  2 1 

1637000 

0215 

JlCHFCK*- Jl 31 

1 636000 

0215 

JNPART* JNMMA  X  01V  JNGROUPI 

1A39000 

0216 

IF  JNHMAX«JNPART» JNGKQUP  THtN  GO  Tfl  1.9061 

lAAOOOO 

021  7 

JNM* AX* JNP ART* JNGROUPI 

1 A A 1 000 

0219 

WRlTECPHtNT  # FL905 # L 1 S T?2  1 1 


1A4?UOO 


o??o 
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L*0*l  |f  JSMtTfajNHtl  THEN  bO  ?0  L9J0I 

166)000 

022* 

«RlTt(PRlWT  .fL92o)l 

16**000 

0226 

jNUOn*jNOGO*l 1 

166)000 

0229 

LQJOI  U  JNBMhXKaJNPMiX  T  Ht  N  00  TO  I960) 

1666000 

0231 

*MTCO#MNT#Ft.V)0)| 

1667000 

0232 

jNUGO»jNnar»ii 

1666000 

0235 

19601  IF  jNNMAXPaJKRM4X  TMtN  GO  TO  1990| 

1669000 

0232 

«Kltt(l*flNt.fL«»0)| 

16)0000 

02)8 

jsuan* jsnGn»i i 

16S1000 

02*1 

L9V0I  It  Jbn«»»',*Jm)b9«  Thi*  Gu  *0  1  10201 

1  6S?000 

026) 

WNITt(BHlNT*rL10lO)» 

16)3000 

0266 

jNucn*jNnr.n»t  i 

16)600 

0267 

L1020I  If  JM*COLPbJRPCIlL  TMtN  GO  TO  L1050I 

1 655000 

0269 

NRIff(PNlhT.FL10«0)l 

1 6S6000 

0250 

jmjgo*  jnogom  i 

1652000 

0253 

16)0000 

0255 

KMTL(PN|NT. 211020)1 

| 659000 

0256 

jNUfin*  JNOGOM  1 

1660000 

0259 

110801  If  JNR2l8P«jNRFlB  TotR  00  TO  120101 

1661000 

0261 

RMTt(PPlNI»fU2000)l 

1662000 

0262 

j*UGruj*n<iOMi 

1 66)000 

026) 

i?oioi  ir  jn*opp«v'n»op  then  go  to  l?o*oi 

1666000 

026  2 

«MTf  (PRINT.  ri2OJ0)| 

166)000 

0260 

JNUGO»jN'JGn*l  » 

1666000 

0221 

l?o*oi  ir  js»gp«jrrg  tm[n  gu  10  120201 

1667000 

0223 

UNITE!  PRINT .FL2060 )l 

1660000 

0276 

JNUGO*  JNOGOM 1 

1669000 

0222 

L2O20I  If  JR0GU»O  THEN  GO  III  I.SI 

1670000 

0229 

If  JKKICKIO  THEN  GO  TO  L20PTI 

1671000 

0200 

ShCHfCM 

1672000 

0201 

L2O07I  JJ1 »2| 

167)000 

0202 

JJMI 

162*000 

0202 
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00  BEGIN 

1*75000 

0203 

JJ?#JJI) 

1676000 

020) 

UO  BEGIN 

1677000 

0764 

IF  (XPR*(SVHOt JJI*5VHVl JJ21 >  >«0  THEN 

GO  TO  L3S0  ELSE  If  *PR*0  lHfN  ft 

1  A 10000 

0?0* 

0  10  1.3*01 

1 *7*000 

0207 

END  UNTIL  (JJ?»(JJ?«1))>JN0HJ 

1 6*0000 

076b 

HR1TECPRINT.EL330.L1ST23)) 

l AH  1 000 

0?90 

GO  TO  L3000I 

1*02000 

02*4 

L  350  l  SVT»UHU(JJ)*SV1»U1JJ?-1  ]♦(  SVT»U(JJ?  1*  SV  T»  Ul  J  J2-1  ))«tSVHUI 

1A0JOOO 

0?94 

JJ)-SVHV[JJ?-l))/(SVHVlJJ21*SVHVfJJ2- 

11)1 

1*0*000 

02*0 

GO  TO  L 300 1 

16**000 

0303 

L  3*0  t  SVTAUHUI jJl»SVT»Ut JJ2JI 

16*6000 

0)0) 

13*01  JJUJJ2) 

1*07  000 

0)0) 

END  UNTIL  (JJ*(J.I*1))>JNU»«*I 

16**000 

030* 

Gil  TO  LOT 

1AH9000 

0309 

GO  TO  LSI 

1*VOOOO 

030* 

IJOOOI  LRR0R(0)l 

1**1000 

0)10 

LOt  f NO  f NO  1 

1697000 

0310 

0040  |S 

031?  LONG# 

next  sec 

003* 

003b  IS 

0?*5  LONG# 

NEXT  ST G 

0006 

PRUCfOnRE  mainproi 

1693000 

031* 

begin 

1694000 

031* 

COMMENT  the  EOLLOHJNG  PBOtlOUHFS  ***E  USEOI  SH  INPUT  «  $NN«  1  N»SK«NS  Nl  N  , 

169*000 

031* 

SNORT  AM  > 

10**000 

031* 

L»»tL  Dl 

16V7000 

0)1* 

151  SR1NPUTI 

169*000 

ooou 

SRMA1N) 

1699000 

0000 

SHANSNTNI 

1700000 

0001 

SRORFAMf 

1701000 

0001 

cn  TO  151 

170?000 

0002 

tNO» 

1703000 

coo? 

‘4. 

<  r- 


V'V*-*1 
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ocsi  is  oooi  lons*  *rxt  sir.  ooos 

1x04000  0)i« 

120*000  0319 

1 70X000  0)21 

1202000  0322 

0000  |S  0)2*  LONG#  NfXT  iff,  0002 

L«NJ,*(1  |Nf  (2)-L«NJ*)/«0|0N*««*(  Tl«f  (  ))-0«V«K  )/60»FZ0VC*TIHL(  I  1J»U»T  f  «M  1206000  00*6 

I  tl  (PRINT (PAGl  1)1  RRI  Tf  (PRIM  .{''SUB.  IOO*LJLnU#CCPOV#LI<NJ»#OllV9K)>  1209000 


CtiMHfNt  INITIALIZING  R  L  0  C  M 
>PR#S#K#Ol 
R61NPMI)  r|N15l 
FN01 


f  NO, 


l»P  1 X  Sl&HtNT  NUHRCR  00*2, PUT  400RC4X  is  0101 
ln  is  srGMfNi  NUNH2H  oo4)#prt  Rnnpcss  is  0102 

SON  1  IS  SIGhINT  NUHRrR  0044»PRT  400RLXS  IS  0643 
OUTPUT  (*  I  IS  STGNINT  NIIHHCR  0045»PRT  »OORfSS  IS  00*4 
OlllPul(C)  Is  SC  CHI  N  T  NUHMIR  00*6. PRT  ‘OORCSS  IS  n0«l 
INPUT(R)  IS  SIGhCNT  NUPRIN  004'»0T:T  »UORLSS  IS  0216 
INP-'T  ( c  I  IS  SfGHcNT  NUHriH  00»»#P»T  mjoRlSS  IS  021S 


1 #10000 


0064 

0063 


0002  | S  OOPS  LUNG#  Nr  XT  SCU  0001 


GO  ’0  Slll*IR 

IS 

SCGMCNI 

NUHRrR 

OOROtHHT 

AOORf SS 

IS 

on  j 

*  111  LNTRL(R) 

IS 

SrGHI  Nl 

numrtr 

oo^o^rt 

•ooRrss 

IS 

0016 

rut  cntrkc) 

IS 

SrGRCNT 

NUN  Hf R 

0051  *^R  T 

600Rf 55 

IS 

j* 

o 

c 

Rf  411/RRlTC  IS 

SrGRfKT  NUHHCR  0052. PRI  400HCSS  IS 

0016 

NUMRIR  or  CHRURS  OUfCTlO  •  OOO,  C0HP1L4TUIN  TIHC  •  0180  SICONOS. 

PHI  S12l*0*R2ITUT4l  SCGHTNI  5121*05313  HORUSIORUH  ST0R4GC  PC9. *06092  PONDS  PJi  S£GS,.0U52. 
IST!h4II0  CuRt  ST  0*401  HECIRtHlNT  ■  10632  ROROS. 
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8.3  ALGOL  Listing  for  ACC 

The  following  is  the  ALGOL  listing  of  the  ACC.  Cards  1000  through 
43000  were  provided  by  the  computing  center  at  Fort  Monmouth  for  file 

definition  and  to  furnish  procedures  which  calculate  some  of  the  basic 
functions. 


200 


Rt  r.tN 

oocotooo 

oono 

START 

nr  segnent  •• 

rur  in  c»«c  o<j.ioii 

00007000 

oono 

rut  out  punch  o<2.ton 

0000)000 

00"4 

MU  OUT  PH|Nt  «(?.!})! 

0000*000 

ooto 

rfu  xxxxxx  ?<?»i5)i 

OOOPSOOO 

0015 

rur  mpci 

OOOOAOOO 

0070 

rtu  t*pr?  ?{?»i5)i 

ooonrooo 

0075 

rur  t *pr i  7c?»t5)i 

oooraooo 

ooxo 

rur  tapt*  ?c?»ts)i 

00009000 

00X5 

rur  t Aprs  ?c?.i5>i 

00010000 

00  A  0 

rue  TAPrA  ?c?.iS)i 

0001(000 

00*5 

rur  T*prr  ?c?.is)i 

00017000 

ooso 

rur  T»rra 

0001)000 

0055 

rut  t«Pt» 

0001*000 

00*0 

rue  urtio 

00015000 

0065 

rur  t«pr i i 

0001(1000 

0070 

rut  T«pri? 

oooirooo 

0075 

rur  t«prn 

OOOlflOOO 

00*0 

rut  tapma  ?{?,is)» 

OOOlOO'IO 

0065 

riif  taphs  ?(?»tS)i 

000700O0 

0090 

rur  TAPnd  ?<?»t5)i 

00071000 

0095 

snuth  rut  f ii€Sw»**m*#>*rei.T»pr».»»rti.t»pt«»i«rcw»PiA.urtr* 

00077000 

0100 

i«pcPtT«pr».T»Ptio.i»PEii.T»pri5.t«pri i.j»pri*t»*ptii»t*ptt»i 

0007)000 

Oil? 

LAMfL  riNISI 

0007*000 

Ot?J 

mu  »np»y  o«t»ioiM>niati  li  cnHxrNr  tisto  *ith  ait*  sutenChts  omri 

0OO75CO0 

Ot?J 

uru  o * r ph i  iNtr-irn  ki 

00076000 

ot?» 

r'lMMAt  rc//////"STnP  /  PAUSE  NO,  1 6)  *  0KTl<?S6n>l 

00077000 

Ot»5 

START 

:ir  ser.Mt^T  •*•**••*•* 

000) 

is  ooi7  ionr,9 

xit xt  see 

■(It  PHOcenuHt  1  NT  <  *«G1  >  •  vlLlir  •PD1I  HfH  MGlI 

0007*000 

0175 

|M*5f  <•*<  AR(i1  )*r^T|rMfAR^{AMf»1  ))l 

00079000 

0176 

000? 


0001 

000? 


201 


REAL  PROCEDURE  TANHCARGn*  value  argji 

REAL 

ARGl  1 

OOOTCOOO 

01  u 

TANH*<(«*EKP( ARGl *?>)•!  >/<#»!  (I 

ooo jioco 

01  M 

REAL  procedure  MAKCARG1 *ARG?)I  VALUE  ARGl # ARG? 1 

REAL 

ARGl *ARG?J 

000  T?000 

01«0 

AHGUARG?  THEN  ARGl  ELSE  ARG?) 

noououo 

01*0 

REAL  PROCEDURE  HlN( ARGl # ARG?  )  J  VALUF  argi»aro?i 

REAL 

ARGl #ARG2I 

ooo.uooo 

01  A5 

M|N*1F  ARGMARG?  THEN  ARGl  ELSE  ARG> » 

000)5000 

OHS 

REAL  procedure  OIKCARGWARG?) I  value  argi#arg?j 

real 

ARGl >ARG2I 

00016000 

0150 

niM*MAk( ARGl -ARG?#01I 

ooouooo 

0150 

REAL  PROCFO'iRE  TS1GNCARG1  #ARG?)I  VALUE  ARGl  *  ARGPI 

real 

ARGl# ARG?| 

000)6000 

015* 

T$1GN*5IGN(ARG?)*ARS(ARG1 )f 

000)0000 

0  1  5  A 

rial  procedure  log<argih  vAi.ur  argii 

REAL 

ARGi  1 

00040000 

0H» 

LOG*LN(ARG|)/?. 105SAS0«5RS» 

OOOAIOOO 

0159 

PROCEDURE  ERR0RCARG1 )|  VALUE  ARGl 1 

REAL 

ARGl  1 
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